arXivil506.02567v2 [hep-lat] 15 Mar 2016 


Computational Physics: An Introduction to 
Monte Carlo Simulations of Matrix Field Theory 

Badis Ydri 

Department of Physics, Faculty of Sciences, BM Annaba University, 

Annaba, Algeria. 

March 16, 2016 


Abstract 

This book is divided into two parts. In the first part we give an elementary introduc¬ 
tion to computational physics consisting of 21 simulations which originated from a formal 
course of lectures and laboratory simulations delivered since 2010 to physics students at 
Annaba University. The second part is much more advanced and deals with the problem 
of how to set up working Monte Carlo simulations of matrix field theories which involve fi¬ 
nite dimensional matrix regularizations of noncommutative and fuzzy field theories, fuzzy 
spaces and matrix geometry. The study of matrix field theory in its own right has also 
become very important to the proper understanding of all noncommutative, fuzzy and 
matrix phenomena. The second part, which consists of 9 simulations, was delivered infor¬ 
mally to doctoral students who are working on various problems in matrix field theory. 
Sample codes as well as sample key solutions are also provided for convenience and com- 
pletness. An appendix containing an executive arabic summary of the first part is added 
at the end of the book. 
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Introductory Remarks 


Introducing Computational Physics 

Computational physics is a subfield of computational science and scientific computing 
in which we combine elements from physics (especially theoretical), elements from mathe¬ 
matics (in particular applied mathematics such as numerical analysis) and elements from 
computer science (programming) for the purpose of solving a physics problem. In physics 
there are traditionally two approaches which are followed: 1) The experimental approach 
and 2) The theoretical approach. Nowadays, we may consider “The computational ap¬ 
proach” as a third approach in physics. It can even be argued that the computational 
approach is independent from the first two approaches and it is not simply a bridge be¬ 
tween the two. 

The most important use of computers in physics is simulation. Simulations are suited 
for nonlinear problems which can not generally solved by analytical methods. The starting 
point of a simulation is an idealized model of a physical system of interest. We want to 
check whether or not the behaviour of this model is consistent with observation. We 
specify an algorithm for the implementation of the model on a computer. The execution 
of this implementation is a simulation. Simulations are therefore virtual experiments. The 
comparison between computer simulations and laboratory experiments goes therefore as 
follows: 


Laboratory experiment 

Simulation 

sample 

model 

physical apparatus 

computer program (the 
code) 

calibration 

testing of code 

measurement 

computation 

data analysis 

data analysis 


A crucial tool in computational physics is programming languages. In simulations as 
used by the majority of research physicists codes are written in a high-level compiled 
language such as Fortran and C/C++. In such simulations we may also use calls to 
routine libraries such as Lapack. The use of mathematical software packages such as 
Maple, Mathematica and Matlab is only suited for relatively small calculations. These 
packages are interpreted languages and thus the code they produce run generally far too 
slowly compared to compiled languages. In this book we will mainly follow the path of 
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developping and writing all our codes in a high-level compiled language and not call any 
libraries. As our programming language we will use Fortran 77 under the Linux operating 
system. We adopt exclusively the Ubuntu distribution of Linux. We will use the Fortran 
compilers f77 and gfortran. As an editor we will use mostly Emacs and sometimes Gedit 
and Nano while for graphics we will use mostly Gnuplot. 


References 

The main references which we have followed in developing the first part of this book 
include the following items: 

1. N.J.Giordano, H. Nakanishi, Gomputational Physics (2nd edition), Pearson/Prentice 
Hall, (2006). 

2. H.Gould, J.Tobochnick, W.Ghristian, An Introduction To Gomputer Simulation 
Methods: Applications to Physical Systems (3rd Edition), Addison-Wesley (2006). 

3. R.H.Landau, M.J.Paez, G.G. Bordeianu, Gomputational Physics: Problem Solving 
with Gomputers (2nd edition), John Wiley and Sons (2007). 

4. R.Fitzpatrick, Introduction to Gomputational Physics, 
http://farside.ph.utexas.edu/teaching/329/329.html, 

5. Konstantinos Anagnostopoulos, Gomputational Physics: A Practical Introduction 
to Gomputational Physics and Scientific Gomputing, Lulu.com (2014). 

6. J. M. Thijssen, Gomputational Physics, Gambridge University Press (1999). 

7. M. Hjorth-Jensen,Computational Physics, CreateSpace Publishing (2015). 

8. Paul L.DeVries, A First Course in Computational Physics (2nd edition), Jones and 
Bartlett Publishers (2010). 


Codes and Solutions 

The Fortran codes relevant to the problems considered in the first part of the book as 
well as some key sample solutions can be found at the URL: 
http://homepages.dias.ie/ydri/codes_solutions/ 


Matrix Field Theory 

The second part of this book, which is effectively the main part, deals with the impor¬ 
tant problem of how to set up working Monte Carlo simulations of matrix field theories in 
a, hopefully, pedagogical way. The subject of matrix field theory involves non-perturbative 
matrix regularizations, or simply matrix representations, of noncommutative field theory 
and noncommutative geometry, fuzzy physics and fuzzy spaces, fuzzy field theory, matrix 
geometry and gravity and random matrix theory. The subject of matrix field theory may 
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even include matrix regularizations of supersymmetry, string theory and M-theory. These 
matrix regularizations employ necessarily finite dimensional matrix algebras so that the 
problems are amenable and are accessible to Monte Carlo methods. 

The matrix regulator should be contrasted with the, well established, lattice regulator 
with advantages and disadvantages which are discussed in their places in the literature. 
However, we note that only 5 simulations among the 7 simulations considered in this part 
of the book use the matrix regulator whereas the other 2, closely related simulations, use 
the usual lattice regulator. This part contains also a special chapter on the Remez and 
conjugate gradient algorithms which are required for the simulation of dynamical fermions. 
The study of matrix field theory in its own right, and not thought of as regulator, has 
also become very important to the proper understanding of all noncommutative, fuzzy 
and matrix phenomena. Naturally, therefore, the mathematical, physical and numerical 
aspects, required for the proper study of matrix field theory, which are found in this part 
of the book are quite advanced by comparison with what is found in the first part of the 
book. 

The set of references for each topic consists mainly of research articles and is included 
at the end of each chapter. Sample numerical calculations are also included as a section 
or several sections in each chapter. Some of these solutions are quite detailed whereas 
others are brief. The relevant Fortran codes for this part of the book are collected in the 
last chapter for convenience and completeness. These codes are, of course, provided as is 
and no warranty should be assumed. 


Appendices 

We attach two appendices at the end of this book relevant to the first part of this 
book. In the first appendix we discuss the floating point representation of numbers, 
machine precision and roundoff and systematic errors. In the second appendix we give an 
executive summary of the simulations of part I translated into arabic. 
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Part I 

Introduction to Computational 

Physics 



Chapter 1 

Euler Algorithm 


1.1 Euler Algorithm 

It is a well appreciated fact that first order differential equations are commonplace in all 
branches of physics. They appear virtually everywhere and some of the most fundamental 
problems of nature obey simple first order differential equations or second order differential 
equations. It is so often possible to recast second order differential equations as first order 
differential equations with a doubled number of unknown. From the numerical standpoint 
the problem of solving first order differential equations is a conceptually simple one as we 
will now explain. 

We consider the general first order ordinary differential equation 

= (1-1) 

We impose the general initial-value boundary condition is 

y{xo) = yf). ( 1 . 2 ) 

We solve for the function y = y{x) in the unit x—interval starting from xq- We make the 
X—interval discretization 

Xn = xo + nAx , n = 0,1,... (1-3) 

The Euler algorithm is one of the oldest known numerical recipe. It consists in replacing 
the function y{x) in the interval [xn,Xn+i] by the straight line connecting the points 
{xn,yn) and {xn+i,yn+i)- This comes from the definition of the derivative at the point 
X = Xn given by 

yn+l ~ y-n 
Xn+1 Xn 

This means that we replace the above first order differential equation by the finite differ¬ 
ence equation 


f{Xn,yn)- 


(1.4) 


yn+l - 2/n + Ax/(x„, y„). 


(1.5) 
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This is only an approximation. The truncation error is given by the next term in the 
Taylor’s expansion of the function y{x) which is given by 


Un+l — Un T ^xf^Xntyn) T i \x=Xn T — 

2 ax 


The error then reads 


2^ dx 


( 1 . 6 ) 


(1.7) 


The error per step is therefore proportional to (Ax)^. In a unit interval we will perform 
N = 1/Ax steps. The total systematic error is therefore proportional to 


N{Axf = 1. 


( 1 . 8 ) 


1.2 First Example and Sample Code 

1.2.1 Radioactive Decay 

It is an experimental fact that radioactive decay obeys a very simple first order differ¬ 
ential equation. In a spontaneous radioactive decay a particle with no external influence 
will decay into other particles. A typical example is the nuclear isotope uranium 235. 
The exact moment of decay of any one particle is random. This means that the number 
—dJ\f (t) = — J\f{t + dt) of nuclei which will decay during a time inetrval dt must be 

proportional to dt and to the number M{t) of particles present at time t, i.e. 

— dJ\f{t) (X N{t)dt. (1-9) 

In other words the probability of decay per unit time given by {—dM{t)/M{t))/dt is a 
constant which we denote l/r. The minus sign is due to the fact that dj\[{t) is negative 
since the number of particles decreases with time. We write 

^ Afjt) 

dt T ' ^ ‘ 

The solution of this first order differential equation is given by a simple exponential func¬ 
tion, viz 


AA(t) = A/o exp(—f/r). (1-11) 

The number A/q is the number of particles at time t = 0. The time r is called the mean 
lifetime. It is the average time for decay. For the uranium 235 the mean lifetime is around 
10® years. 

The goal now is to obtain an approximate numerical solution to the problem of ra¬ 
dioactivity using the Euler algorithm. In this particular case we can compare to an exact 


solution given by the exponential decay law (1.11). We start evidently from the Taylor’s 
expansion 
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,,, . . ,,, , . dJ\f 1 , . 

Af{t + At) = + At-^ +-{At) + 

We get in the limit At —0 

dJ\f J\f {t + At) — Af (t) 

— - - - , 

We take At small but non zero. In this case we obtain the approximation 


Equivalently 


By using (1.10) we get 


clAf Af{t + At) — Af{t) 
dt At 


N{t + At) ~ AA(t) + At-^. 
AA(t +At) ~AA(t) - At^^. 


( 1 . 12 ) 

(1.13) 

(1.14) 

(1.15) 

(1.16) 


We will start from the number of particles at time t = 0 given by W(0) = A/q which is 
known. We substitute t = 0 in (1.16) to obtain N{At) = ^(1) as a function of A/’(0). 
Next the value W(l) can be used in equation (1.16) to get N{2At) = N{2), etc. We are 
thus led to the time discretization 


t = t{i) = iAt , i = 0,..., N. (1-17) 

In other words 

M{t)=M{i). (1.18) 

The integer N determine the total time interval T = NAt. The numerical solution ( |1.16| ) 
can be rewritten as 

N{i + 1) = N{i) - At^^ , i = 0,..., A. (1.19) 

T 

This is Euler algorithm for radioactive decay. For convenience we shift the integer i so 
that the above equation takes the form 


Af{i) = Af{i - 

-1)- 

T 

i — 1,..., A + 1. 

(1.20) 

We introduce Af{i) = Af{i — 1)^ 

, i.e AA(1) = M{0) = 

Aq. We get 


Mil +1) = 

Mi) 

- . i 

T 

= 1,..., A + 1. 

(1.21) 

The corresponding times are 





i{i + 

1) = 

iAt , i = 1 ,... 

,A + 1. 

(1.22) 


The initial number of particles at time t(l) = 0 is AA(1) = A/q. This approximate solution 
should be compared with the exact solution 
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1.2.2 A Sample Fortran Code 

The goal in this section is to provide a sample Fortran code which implements the above 


algorithm (1.21). The reasons behind choosing Fortran were explained in the introduction. 


Any Fortran program, like any other programing language, must start with some program 
statement and conclude with an end statement. The program statement allows us to give 
a name to the program. The end statement may be preceded by a return statement. This 
looks like 

program radioactivity 

c Here is the code 

return 

end 

We have chosen the name “radioactivity” for our program. The “c” in the second line 
indicates that the sentence “here is the code” is only a comment and not a part of the 
code. 

After the program statement come the declaration statements. We state the variables 
and their types which are used in the program. In Fortran we have the integer type for 


integer variables and the double precision type for real variables. In the case of (1.21) the 


variables M{i), t{i), r. At, A/q are real numbers while the variables i and N are integer 
numbers. 

An array A of dimension K is an ordered list of K variables of a given type called the 
elements of the array and denoted A(l), A(2),...,A(iF). In our above example M{i) and 
t{i) are real arrays of dimension A + 1. We declare that N{i) and t{i) are real for all 
i = 1,..., A + 1 by writing N{1 : N + 1) and i{l : N + 1). 

Since an array is declared at the begining of the program it must have a fixed size. In 
other words the upper limit must be a constant and not a variable. In Fortran a constant 
is declared with a parameter statement. In our above case the upper limit is A + 1 and 
hence N must be declared in parameter statement. 

In the Fortran code we choose to use the notation A = M, AO = Mq, time = t, A = At 
and tau = r. By putting all declarations together we get the following preliminary lines 
of code 

program radioactivity 
integer i,N 
parameter (M=100) 

doubleprecision A(1:N+1),AO,timed:N+1).Delta,tau 


c Here is the code 


return 

end 
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The input of the computation in our case are obviously given by the parameters A/q, 
r, At and N. 


For the radioactivity problem the main part of the code consists of equations (1.21) 


and (1.22). We start with the known quantities AA(1) = A/q at t(l) = 0 and generate via 
the successive use of (1.21) and (1.22) M{i) and t{i) for all i > 1. This will be coded using 
a do loop. It begins with a do statement and ends with an enddo statement. We may also 
indicate a step size. 

The output of the computation can be saved to a file using a write statement inside the 
do loop. In our case the output is the number of particles Af{i) and the time t{i). The 
write statement reads explicitly 


write(10,*) i{i),M{i). 


The data will then be saved to a file called fort. 10. 

By including the initialization, the do loop and the write statement we obtain the 
complete code 

program radioactivity 
integer i,N 
parameter (N=100) 

doubleprecision A(1:N+1),AO,timed:N+1),Delta,tau 
parameter (A0=1000,Delta=0.OldO,tau=l.OdO) 


A(1)=A0 
time(l)=0 
do i=l,N+l,l 

A(i+l)=A(i)-Delta*A(i)/tau 
time(i+l)=i*Delta 
writedO,*) timed+1) ,Ad+l) 
enddo 

return 

end 


1.3 More Examples 

1.3.1 Air Resistance 

We consider an athlete riding a bicycle moving on a flat terrain. The goal is to 
determine the velocity. Newton’s second law is given by 

dv ^ , 

m— = F. (1.23 

dt ^ ^ 

F is the force exerted by the athlete on the bicycle. It is clearly very difficult to write down 
a precise expression for F. Formulating the problem in terms of the power generated by 
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the athlete will avoid the use of an explicit formula for F. Multiplying the above equation 
by V we obtain 


dE 

dt 


= P. 


E is the kinetic energy and P is the power, viz 


E = -mv^ , P = Pv. 


(1.24) 


(1.25) 


Experimentaly we find that the output of well trained athletes is around P = 400 watts 
over periods of Ih. The above equation can also be rewritten as 


dv"^ _ 2P 
dt m 


For P constant we get the solution 


V 


2 


2P 

m 


t + Vq. 


(1.26) 


(1.27) 


We remark the unphysical effect that v —)• oo as t —)• oo. This is due to the absence of 
the effect of friction and in particular air resistance. 

The most important form of friction is air resistance. The force due to air resistance 
(the drag force) is 


Pdrag — PlV P2V . 


(1.28) 


At small velocities the first term dominates whereas at large velocities it is the second term 
that dominates. For very small velocities the dependence on v given by Tdrag = —Biv 
is known as Stockes’ law. For reasonable velocities the drag force is dominated by the 
second term, i.e. it is given for most objects by 

Pdrag = -B2v\ (1.29) 


The coefficient B 2 can be calculated as follows. As the bicycle-rider combination moves 
with velocity v it pushes in a time dt a mass of air given by dniah = pAvdt where p is the 
air density and A is the frontal cross section. The corresponding kinetic energy is 


dEoX^ — d?7Zair^ /2. 

This is equal to the work done by the drag force, i.e. 


From this we get 


Bdrug^dt — dEg^ij-' 


B 2 = CpA. 

The drag coefficient is C = The drag force becomes 

Tdrag — CpAv . 


(1.30) 


(1.31) 


(1.32) 


(1.33) 
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Taking into account the force due to air resistance we find that Newton’s law becomes 


Equivalently 


dv „ „ 

^ -^drag* 


dv P CpAv'^ 


dt mv m 


(1.34) 


(1.35) 


It is not obvious that this equation can be solved exactly in any easy way. The Euler 
algorithm gives the approximate solution 


(111 

^;(i + l) = + 


(1.36) 


In other words 


u(i + l) = + = (1.37) 

\mv[i) m ) 


This can also be put in the form (with v{i) = v{i — 1)) 

P CpAv^ii) 


v{i + 1) = v{i) + At 
The corresponding times are 


mv{i) m 


, i = 1,...,1V + 1. (1.38) 


t = i{i + 1) = iAt , i = 1 ,..., iV + 1. 
The initial velocity 7(1) at time t(l) = 0 is known. 


(1.39) 


1.3.2 Projectile Motion 

There are two forces acting on the projectile. The weight force and the drag force. 
The drag force is opposite to the velocity. In this case Newton’s law is given by 


dv 


m 


dt 


F + -Pdrag 

- R 2^ 

mg — B 2 V - 

V 

mg — B 2 VV. 


(1.40) 


The goal is to determine the position of the projectile and hence one must solve the two 
equations 


dv 

dt 


dx 

— = V. 

dt 

(1.41) 

= mg — B 2 VV. 

(1.42) 
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In components (the horizontal axis is x and the vertical axis is y) we have 4 equations of 
motion given by 


dx 


dvx „ 

m—— = -B 2 VVx. 

dt 


dy 

dt 


= V 


y 


(1.43) 

(1.44) 

(1.45) 


m 


— = -mg - B 2 VVy 


We recall the constraint 


v = \ hl + v, 


y 


(1.46) 


(1.47) 


The numerical approach we will employ in order to solve the 4 equations of motion (1.43)- 


(1.46) together with (1.47) consists in using Euler algorithm. This yields the approximate 


solution given by the equations 


x{i + 1) = x{i) + AtVx{i)- (1-48) 

Vx{i + l) = Vx{i) - (1.49) 

m 

y{i + l) = y{i) + AtVy{i). (1.50) 

Vy{i + 1) = Vy{i) - Atg - , (1.51) 

The constraint is 

v{i) = ^Jvx{iY + Vy{iY. (1.52) 

In the above equations the index i is such that i = 0, ...,Y. The initial position and 
velocity are given, i.e. x(0), y(0), n 3 ;( 0 ) and Vy{Q) are known. 


1.4 Periodic Motions and Euler-Cromer and Ver- 
let Algorithms 

As discussed above at each iteration using the Euler algorithm there is a systematic 
error proportional to 1/N. Obviously this error will accumulate and may become so large 
that it will alter the solution drastically at later times. In the particular case of periodic 
motions, where the true nature of the motion can only become clear after few elapsed 
periods, the large accumulated error can lead to diverging results. In this section we will 
discuss simple variants of the Euler algorithm which perform much better than the plain 
Euler algorithm for periodic motions. 
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1.4.1 Harmonic Oscillator 


We consider a simple pendulum: a particle of mass m suspended by a massless string 
from a rigid support. There are two forces acting on the particle. The weight and the 
tension of the string. Newton’s second law reads 


d^s ^ ^ 

m—— = mg + T. 

dt 

(1.53) 

The parallel (with respect to the string) projection reads 


0 = —mg cos 9 +T. 

(1.54) 

The perpendicular projection reads 


0^s . 

= —mg smd. 

(1.55) 


The 0 is the angle that the string makes with the vertical. Clearly s = W. The force 
mg sin 0 is a restoring force which means that it is always directed toward the equilibrium 
position (here 0 = 0) opposite to the displacement and hence the minus sign in the above 
equation. We get by using s = 10 the equation 


dH 

dt‘^ 

For small 9 we have sin0 ~ 6. We obtain 

dt'^ 


9 ■ a 



(1.56) 


(1.57) 


The solution is a sinusoidal function of time with frequency = \fgjl. It is given by 


^(i) = 00 sin(nt + (/)). 


(1.58) 


The constants 0o and 0 depend on the initial displacement and velocity of the pendulum. 
The frequency is independent of the mass m and the amplitude of the motion and depends 
only on the length I of the string. 


1.4.2 Euler Algorithm 


The numerical solution is based on Euler algorithm. It is found as follows. First we 
replace the equation of motion (1.57) by the following two equations 


00 

dt 


= UJ. 


(1.59) 


dio 

dt 



We use the definition of a derivative of a function, viz 


df _ f{t + At)-f{t) 
dt At 


(1.60) 


(1.61) 
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We get for small but non zero At the approximations 

6{t + At) ~ 6{t) + w(t)At 

a;(t + At) ~ a;(t) — y0(t)At. (1-62) 

We consider the time discretization 

t = t(i) = iAt , i = 0,N. (1.63) 

In other words 

9{t) = 9{i) , io{t) = uj{i). (1-64) 

The integer N determine the total time interval T = NAt. The above numerical solution 
can be rewritten as 


oj{i + 1) = — j9{i)At 

9{i + 1) = 9{i) + uj{i)At. (1.65) 

We shift the integer i such that it takes values in the range [1, A + 1]. We obtain 

uj{i) = uj{i — 1) — y0(i — l)At 

9{i) = 9{i — 1) + oj{i — l)At. (1.66) 

We introduce uj{i) = — and 9{i) = 9{i — l). We get with i = 1 ,..., N+1 the equations 

+ 1) = uj{i) — j9{i)At 

9{i + 1) = 9{i) + u{i)At. (1-67) 

By using the values of 9 and oj at time i we calculate the corresponding values at time 
i + 1. The initial angle and angular velocity 0(1) = 9(0) and 15(1) = cu(0) are known. This 
process will be repeated until the functions 9 and uj are determined for all times. 


1.4.3 Euler-Cromer Algorithm 


As it turns out the above Euler algorithm does not conserve energy. In fact Euler’s 
method is not good for all oscillatory systems. A simple modification of Euler’s algorithm 
due to Cromer will solve this problem of energy non conservation. This goes as follows. 
We use the values of the angle 9(i) and the angular velocity uj(i) at time step i to calculate 
the angular velocity uj(i + 1) at time step i + 1. This step is the same as before. However 
we use 9(i) and a)(i + 1) (and not t5(i)) to calculate 9(i + 1) at time step i + 1. This 
procedure as shown by Cromer’s will conserve energy in oscillatory problems. In other 


words equations (1.67) become 


Lu(i + 1) = w(i) — j9{i)At 
9(i + 1) = 9{i) + 6j(i + l)At. 


( 1 . 68 ) 
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The error can be computed as follows. From these two equations we get 

0{i + l) = 0(i) + tD(i)At — 

j2q 

= 6 {i) + (2!{i)At +. (1.69) 

In other words the error per step is still of the order of At^. However the Euler-Cromer 
algorithm does better than Euler algorithm with periodic motion. Indeed at each step i 
the energy conservation condition reads 

The energy of the simple pendulum is of course by 

E^ = (1.71) 

The error at each step is still proportional to At^ as in the Euler algorithm. However 
the coefficient is precisely equal to the difference between the values of the kinetic energy 
and the potential energy at the step i. Thus the accumulated error which is obtained by 
summing over all steps vanishes since the average kinetic energy is equal to the average 
potential energy. In the Euler algorithm the coefficient is actually equal to the sum of the 
kinetic and potential energies and as consequence no cancellation can occur. 

1.4.4 Verlet Algorithm 

Another method which is much more accurate and thus very suited to periodic motions 
is due to Verlet. Let us consider the forward and backward Taylor expansions 


/>/ AN N A dd I 1/A \ 1/A I r,/AN 

0{ti + At) = O{ti)+At—\ti + -{At) -J^\t^ + -{At) + (1-72) 

/>/ AN />/ N A dO. 1 ,. .od?6. 1.. .•id?6. , _ , 

»(t. - At) = m - At-I, + - e(At)“^l, + ... (1.73) 

Adding these expressions we get 

e{ti + At) = 2 e{ti) - e{ti - At) + (At)^—|t^ + o(a^). ( 1 . 74 ) 

We write this as 

Oi+i = - Oi-i - y(At)20i. (1.75) 


This is the Verlet algorithm for the harmonic oscillator. Eirst we remark that the error 
is proportional to At^ which is less than the errors in the Euler, Euler-Cromer (and even 
less than the error in the second-order Runge-Kutta) methods so this method is much 
more accurate. Secondly in this method we do not need to calculate the angular velocity 
cj = dO/dt. Thirdly this method is not self-starting. In other words given the initial 
conditions 9i and coi we need also to know 62 for the algorithm to start. We can for 
example determine 62 using the Euler method, viz 62 = 0 i + At oji. 
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1.5 Exercises 

Exercise 1: We give the differential equations 

^ = a-bv. (1.77) 

• Write down the exact solutions. 

• Write down the numerical solutions of these differential equations using Euler and 
Verlet methods and determine the corresponding errors. 


Exercise 2: The equation of motion of the solar system in polar coordinates is 


£r P GM 



Solve this equation using Euler, Euler-Cromer and Verlet methods. 


(1.78) 


Exercise 3: The equation of motion of a free falling object is 


cfz 


(1.79) 


• Write down the exact solution. 

• Give a solution of this problem in terms of Euler method and determine the error. 

• We choose the initial conditions z = 0, v = 0 at t = 0. Determine the position and 
the velocity between t = 0 and t = 1 for N = 4. Compare with the exact solution 
and compute the error in each step. Express the result in terms of I = gAP. 

• Give a solution of this problem in terms of Euler-Cromer and Verlet methods and 
determine the corresponding errors. 


Exercise 4: The equation governing population growth is 

^ = aN-bN^. (1.80) 

dt ^ ^ 

The linear term represents the rate of birth while the quadratic term represents the rate 
of death. Give a solution of this problem in terms of the Euler and Verlet methods and 
determine the corresponding errors. 
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1.6 Simulation 1: Euler Algorithm- Air Resis¬ 
tance 

The equation of motion of a cyclist exerting a force on his bicycle corresponding to a 
constant power P and moving against the force of air resistance is given by 

dv _ P CpAv"^ 

dt mv m 

The numerical approximation of this first order differential equation which we will consider 
in this problem is based on Euler algorithm. 

(1) Calculate the speed u as a function of time in the case of zero air resistance and 
then in the case of non-vanishing air resistance. What do you observe. We will take 
P = 200 and C = 0.5. We also give the values 

m = 70kg , A = 0.33m^ , p = 1.2kg/m^ , At = 0.1s , T = 200s. 

The initial speed is 


i)(l) = Am/s , t(l) = 0. 

(2) What do you observe if we change the drag coefficient and/or the power. What do 
you observe if we decrease the time step. 


1.7 Simulation 2 : Euler Algorithm- Projectile Mo¬ 
tion 


The numerical approximation based on the Euler algorithm of the equations of motion 
of a projectile moving under the effect of the forces of gravity and air resistance is given 
by the equations 


Vx{i + 1) = Vx{i) - At 


B2v{i)vx{i) 


Vy{i -|- 1) = Vy{i) — Atg — At 


m 

B2v{i)vy{i) 


m 


v{i + 1) = + + + 


x{i -|- 1) = x{i) + At Vx{i)- 
y{i + 1) = y{i) + At Vy{i). 


(1) Write a Fortran code which implements the above Euler algorithm. 
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(2) We take the values 

JD 

— = 0.00004m“^ , g = 9.8m/s‘^. 
m 

u(l) = 700m/s , 6* = 30 degree. 

Ua:(l) = u(l) cos 6* , Uy (1) = u(l) slll 0. 

Y = 10\ At = 0.01s. 

Calculate the trajectory of the projectile with and without air resistance. What do 
you observe. 

(3) We can determine numerically the range of the projectile by means of the conditional 
instruction if. This can be done by adding inside the do loop the following condition 

if {y{i + l).le.O) exit 

Determine the range of the projectile with and without air resistance. 

(4) In the case where air resistance is absent we know that the range is maximal when 
the initial angle is 45 degrees. Verify this fact numerically by considering several 
angles. More precisely add a do loop over the initial angle in order to be able to 
study the range as a function of the initial angle. 

(5) In the case where air resistance is non zero calculate the angle for which the range 
is maximal. 


1.8 Simulations: Euler, Euler-Cromer and Verlet 
Algorithms 


We will consider the numerical solutions of the equation of motion of a simple harmonic 
oscillator given by the Euler, Euler-Cromer and Verlet algorithms which take the form 


Wj+i — (jJi 


cjj+i =oji- jOi At 


Oi At , = 6i + oji At , Euler. 

, = 6i+ cuj+i At , Euler — Cromer. 


0i+i = 29i - 9i-i - , Verlet. 

(1) Write a Eortran code which implements the Euler, Euler-Cromer and Verlet algo¬ 
rithms for the harmonic oscillator problem. 

(2) Calculate the angle, the angular velocity and the energy of the harmonic oscillator 
as functions of time. The energy of the harmonic oscillator is given by 


1 9 Iff 


We take the values 


g = 9.8m /, I = Im . 
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We take the number of iterations N and the time step At to be 

N = 10000 , At = 0.05s. 

The initial angle and the angular velocity are given by 

01 = 0.1 radian , tci = 0. 

By using the conditional instruction if we can limit the total time of motion to be 
equal to say 5 periods as follows 

if (t(i + l).ge.5 * period) exit. 

(3) Compare between the value of the energy calculated with the Euler method and the 
value of the energy calculated with the Euler-Cromer method. What do you observe 
and what do you conclude. 

(4) Repeat the computation using the Verlet algorithm. Remark that this method can 
not self-start from the initial values 6i and wi only. We must also provide the angle 
02 which can be calculated using for example Euler, viz 

02 = 01 + At. 

We also remark that the Verlet algorithm does not require the calculation of the 
angular velocity. However in order to calculate the energy we need to evaluate the 
angular velocity which can be obtained from the expression 

0i+l 0i—l 


UJi = 


2At 



Chapter 2 

Classical Numerical Integration 

2.1 Rectangular Approximation 

We consider a generic one dimensional integral of the form 

F= f fix)dx. (2.1) 

J a 

In general this can not be done analytically. However this integral is straightforward to 
do numerically. The starting point is Riemann definition of the integral F as the area 
under the curve of the function f{x) from x = a to x = b. This is obtained as follows. We 
discretize the x—interval so that we end up with N equal small intervals of lenght Ax, viz 

Xn = xq + nAx , Ax = ^ (2.2) 

Clearly xq = a and xm = b. Riemann definition is then given by the following limit 

, N-l 

F = lim/ N ( Ax f{xn) 

(Afc—>-0 , N —^oo , b—a=hxed] \ A—/ ^ 

^ n=0 

The first approximation which can be made is to drop the limit. We get the so-called 
rectangular approximation given by 

N-l 

Fn = AxY, fi^n). (2.4) 

n=0 

General integration algorithms approximate the integral F by 

N 

TjV = ^ f{Xn)Wn- (2.5) 

n=0 

In other words we evaluate the function /(x) at iV + I points in the interval [a, b] then we 
sum the values f{xn) with some corresponding weights Wn- For example in the rectangular 
approximation ( |2.4[ ) the values f{xn) are summed with equal weights Wn = Ax, n = 
0,N — 1 and wn = 0. It is also clear that the estimation Fjv of the integral F becomes 
exact only in the large N limit. 
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2.2 Trapezoidal Approximation 

The trapezoid rule states that we can approximate the integral by a sum of trapezoids. 
In the subinterval [xn, Xn+i] we replace the function /(x) by a straight line connecting the 
two points (xn,/(xn)) and (xn+i,/(xn+i)). The trapezoid has as vertical sides the two 
straight lines x = x„ and x = x^+i. The base is the interval Ax = x^+i — x^. It is not 
difficult to convince ourselves that the area of this trapezoid is 

(/(x„+i) - /(Xn))Ax (/(Xn+l) + /(Xn))Ax 

-^- +/(Xn)Ax = - - -. (2.6) 

The integral F computed using the trapezoid approximation is therefore given by summing 
the contributions from all the N subinterval, viz 

= E (/("-+■)+ /fe) + b(x„)) Ax, (2.7) 

n=0 ^ n=l ' 

We remark that the weights here are given by wq = Ax/2, Wn = Ax, n = 1,..., A — 1 and 
wn = Ax/2. 


2.3 Parabolic Approximation or Simpson’s Rule 


In this case we approximate the function in the subinterval [xn,Xn+i] by a parabola 
given by 


/(x) = ax^ + ( 3 x + ^. 

The area of the corresponding box is thus given by 

J dx{ax + / 3 x + j) = + 7® J 

Let us go back and consider the integral 

/ I 2q( 

dx{ax^ + Idx + '~f) = — + 27. 

-1 3 


^n + 1 


We remark that 


/(-I) = a - /3 + 7 , /(O) = 7 , /(I) = a + d + 7- 


Equivalently 


« = - /(O) > p > 7 = /(O). 


Thus 


J dx{ax^ + /3x + 7 ) = 


/(-I) ^ 4/(0) ^ /(l)^ 


( 2 . 8 ) 


(2.9) 


( 2 . 10 ) 


( 2 . 11 ) 


( 2 . 12 ) 


3 


3 


3 


(2.13) 
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In other words we can express the integral of the function f{x) = + j3x + 7 over the 

interval [—1,1] in terms of the values of this function f{x) at x = —1, 0,1. Similarly we 
can express the integral of f{x) over the adjacent subintervals [xn-i,Xn] and [xn,Xn+i] in 
terms of the values of /(x) at x = Xn+i, Xn, Xn-i, viz 


f-Xn+l rXn + l 

/ dx /(x) = / dx{ax^ + + 7 ) 

J Xn—1 J ^n—\ 


= Ax{ I I 

3 3 3 y 


(2.14) 


By adding the contributions from each pair of adjacent subintervals we get the full integral 


N-2 

2 


+ (2.15) 

V 3 3 3 / 

p=0 ^ ' 

Clearly we must have N (the number of subintervals) even. We compute 

-Sat = ^ (^f{xo) + 4/(xi) + 2 /(x 2 ) + 4/(x3) + 2/(x4) + ... + 2 f{xN- 2 ) + 4/(xAr_i) + /(xat)^ . 

(2.16) 

It is trivial to read from this expression the weights in this approximation. 

Let us now recall the trapezoidal approximation given by 


Tn = f f{xo) + 2 y] f{Xn) + /(xat) j —. 

^ n=l ^ 


(2.17) 


Let us also recall that iVAx = 6 — a is the length of the total interval which is always kept 
fixed. Thus by doubling the number of subintervals we halve the width, viz 


/ 2iV-l . 

4r2Ar = ( 2/(xo) +4 y] /(Xn) + 2/(x2Ar) j 

n=l ' 


Ax 


N-\ 


N-1 


2/(xo) + 4 y] f{x 2 n) + 4 y] /(X 2 n+l) + 2/(x2Ar) 


n=l 

Af-1 


n=0 

Af-1 


Ax 


/ \ A™ 

f 2/(xo) + 4 y] f{Xn) + 4 y] f{x 2 n+l) + 2/(xAr) j —. (2.18) 


n=l n=0 

In above we have used the identification X 2 n = Xn, n = 0,1,..., N — 1, N. Thus 

. iV-l iv-i ^ 

4r2Ar-rAr = ( fjxo) + 2 f{Xn) + 4 /(x 2 n+l) + fjxN) j Ax 

n=l n=0 

= 3Sn- 


(2.19) 
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2.4 Errors 

The error estimates for numerical integration are computed as follows. We start with 
the Taylor expansion 


fix) = fiXn) + (X - Xn)f^^\xn) + - Xn)"^f^‘^\xn) + ... 


Thus 


rXji+l 1 1 

/ dx fix) = fiXn)Ax + —^\xn)iAx)‘^ + —^\xn)iAx)^ + ... 
J Xn 

The error in the interval \xn,Xn+\\ in the rectangular approximation is 

rX-fiJ^I I 1 

J dx fix) - fiXn)Ax = —^\xn)iAx)‘^ + —^\xn)iAx)^ + ... 


( 2 . 20 ) 


( 2 . 21 ) 


( 2 . 22 ) 


This is of order l/N'^. But we have N subintervals. Thus the total error is of order 1/N. 

The error in the interval [xn,Xn+\\ in the trapezoidal approximation is 

f-Xn + l 1 rXn+1 

/ dxfix)--ifiXn) + fiXn+l))Ax = / dxfix) 

J Xn 'f Xn 

- ^i'^fixn) + Ax/(^)(xn) + ^(Ax)V^^Ha;n) + ■■■)Aa 


= il^_-\l^)f^^\xn)iAx)^ + ... 

This is of order 1/N^ and thus the total error is of order 1/N‘^. 

In order to compute the error in the interval [x^-i, Xn+i] in the parabolic approxima¬ 
tion we compute 

r^n r^n+1 o 9 

/ dxfix)+ dxfix) = 2/(xn)Ax— (Ax)^/(^)(xn) + ^(Ax)V^'^Ha;n) + ••• 

(2.24) 


(2.23) 


Also we compute 

At 2 2 

— (/(Xn+l) + fiXn-l) + 4/(Xn)) = 2/(Xn)Ax + — (Ax)^/(^) (Xn) + ^ (Ax) + ••• 

(2.25) 


Hence the error in the interval \xn-i,Xn+i] in the parabolic approximation is 

rxn+i 2 2 /X 

/ dx /(x) - — (/(Xn+i) +/(Xn-l) +4/(Xn)) = ( — - — )(Ax)(a^n) + • • • 

^n—1 

(2.26) 


This is of order 1/N^. The total error is therefore of order 1/N^. 
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2.5 Simulation 4: Numerical Integrals 

(1) We take the integral 

1= [ f{x)dx; f (x) = 2x + . 

Jo 

Calculate the value of this integral using the rectangular approximation. Compare 
with the exact result. 

Hint; You can code the function using either ’’subroutine” or ’’function”. 

(2) Calculate the numerical error as a function of N. Compare with the theory. 

(3) Repeat the computation using the trapezoid method and the Simpson’s rule. 

(4) Take now the integrals 


f2 1 

I = cosxdx , I = —dx , I = 

Jo Jl X 


Um P- 


0 V TT 


dx. 



Chapter 3 

Newton-Raphson Algorithms and 
Interpolation 


3.1 Bisection Algorithm 

Let / be some function. We are interested in the solutions (roots) of the equation 


f{x) = 0. (3.1) 

The bisection algorithm works as follows. We start with two values of x say and x_ 
such that 


/(x_) < 0 , /(x+) > 0. 


(3.2) 


In other words the function changes sign in the interval between x_ and and thus there 
must exist a root between x_ and x+. If the function changes from positive to negative 
as we increase x we conclude that x+ < x_. We bisect the interval [x+,x_] at 

x+ + x_ 


X = 


(3.3) 


If /(x)/(x+) > 0 then x+ will be changed to the point x otherwise x_ will be changed to 
the point x. We continue this process until the change in x becomes insignificant or until 
the error becomes smaller than some tolerance. The relative error is defined by 

x+ — x_ 


error = 


X 


(3.4) 


Clearly the absolute error e = Xi — x/ is halved at each iteration and thus the rate of 
convergence of the bisection rule is linear. This is slow. 


3.2 Newton-Raphson Algorithm 

We start with a guess xq. The new guess x is written as xq plus some unknown 
correction Ax, viz 


X = Xq + Ax. 


(3.5) 
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Next we expand the function f(x) around xq, namely 

f{x) = f{xo) + Ax‘^\a;=xo- (3.6) 

The correction Ax is determined by finding the intersection point of this linear approxi¬ 
mation of /(x) with the x axis. Thus 


/(xo) + Ax^\x=xo = 0 


Ax = — 


f{xo) 


{df/dx)\x=xo 


(3.7) 


The derivative of the function / is required in this calculation. In complicated problems 
it is much simpler to evaluate the derivative numerically than analytically. In these cases 
the derivative may be given by the forward-difference approximation (with some 6x not 
necessarily equal to Ax) 


_ f{xo + 6x) - /(xq) 

dx'^=^° Sx ' ^ ’ 

In summary this method works by drawing the tangent to the function /(x) at the old 
guess Xo and then use the intercept with the x axis as the new hopefully better guess x. 
The process is repeated until the change in x becomes insignificant. 

Next we compute the rate of convergence of the Newton-Raphson algorithm. Starting 
from Xi the next guess is Xj+i given by 


_ f{xi) 

— Xi n' i \ • 

f (^) 


(3.9) 


The absolute error at step i is e* = x — x^ while the absolute error at step i -|- 1 is 
Cj+i = X — Xj+i where x is the actual root. Then 


_ f{Xi) 

By using Taylor expansion we have 

f(x) = 0 = f{Xi) + {X- Xi)f'{Xi) + ^—^^/'(xi) + ... 
In other words 

f{xi) = -ei/{xi) - ^/'{xi) + ... 

Therefore the error is given by 


(-i+i — — 


ef f"{xi) 

2 f'{xi) ■ 


(3.10) 


(3.11) 


(3.12) 


(3.13) 


This is quadratic convergence. This is faster than the bisection rule. 



CP and MFT, B.Ydri 


34 


3.3 Hybrid Method 


We can combine the certainty of the bisection rule in finding a root with the fast 
convergence of the Newton-Raphson algorithm into a hybrid algorithm as follows. First 
we must know that the root is bounded in some interval [a, c]. We can use for example a 
graphical method. Next we start from some initial guess b. We take a Newton-Raphson 
step 


b' = b- 


fjb) 

/{by 


(3.14) 


We check whether or not this step is bounded in the interval [a,c]. In other words we 
must check that 


a<b - -jrj 7 T<c (6 - c)/(6) - /(6)<0<(6 - a)f'{b) - f{b). (3.15) 

/ {b) 


Therefore if 


(6 - c)f ( 6 ) - f{b) (6 - a)f ( 6 ) - f{b) < 0 


(3.16) 


Then the Newton-Raphson step is accepted else we take instead a bisection step. 


3.4 Lagrange Interpolation 


Let us first recall that taylor expansion allows us to approximate a function at a point x 
if the function and its derivatives are known in some neighbouring point xq. The lagrange 
interpolation tries to approximate a function at a point x if only the values of the function 
in several other points are known. Thus this method does not require the knowledge of 
the derivatives of the function. We start from taylor expansion 

fiy) = fix) + iy- x)f'ix) + ^{y - x)'^f''{x) + .. (3.17) 


Let us assume that the function is known at three points xi, X 2 and X 3 . In this case we 
can approximate the function fix) by some function p(x) and write 

fiy) = vix) + iy- x)p'ix) + ^( 2 / - x)‘^p"ix). (3.18) 

We have 

fixi) = pix) + (xi - x)p'(x) + ^ixi- x)‘^p ix) 

/(X 2 ) =p(x) -h (x 2 - x)p'(x) + ^ix 2 - x)V(a^) 

/(xs) =pix) + (X 3 - x)p'(x) -F ^(X 3 - x)V(a^)- (3.19) 


We can immediately find 
1 


pix) = \ — fixi) + . , , — fix2) + — fixs)- (3.20) 

1-1-02-1-03 1 -I- 02 -I- 03 1 -I- 02 -I- 03 
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The coefficients 02 and 03 solve the equations 


02(^2 - + a 3 (x 3 - xf = -{xi - x)‘^ 

02(^2 - x) + 03(^3 - x) = -(xi - x). (3-21) 


We find 


Thus 


02 


(xi - x)(x 3 - xi) _ (xi - x)(x 2 - Xi) 
(X2 - x)(x2 - X3) ’ (X3 - x)(x2 - X3) ' 


1 + 02+03 


(X3 - Xi)(x 2 - Xi) 

(X2 - X)(X3 - x) 


(3.22) 


(3.23) 


Therefore we get 


p{x) 


(x-X2)(x-X3) (x - Xl)(x - X3) (x - Xl)(x - X2) , . 

(xi - X2)(xi - X3)'' (X2 - Xi)(x2 - X3)'' (a^S “ ^i)(X3 - X2)' 

(3.24) 


This is a quadratic polynomial. 

Let X be some independent variable with tabulated values Xj, i = 1,2, ...,n.. The 
dependent variable is a function /(x) with tabulated values fi = f{xi). Let us then 
assume that we can approximate /(x) by a polynomial of degree n — 1 , viz 

p(x) = 00 + oix + 02 X^ + ... + a„_ix”“^. (3.25) 

A polynomial which goes through the n points (x*, fi = f{xi)) was given by Lagrange. 
This is given by 


p{x) = /lAi(x) + / 2 A 2 (x) + ... + fnK{x). 


(3.26) 

Ai(x) = rr” X-Xj ^ 


(3.27) 

We remark 



II 


(3.28) 

n 

^Ai(x) = 1 . 
i=l 


(3.29) 

The Lagrange polynomial can be used to fit the entire table with n equal the number of 
points in the table. But it is preferable to use the Lagrange polynomial to to fit only a 
small region of the table with a small value of n. In other words use several polynomials 
to cover the whole table and the fit considered here is local and not global. 
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3.5 Cubic Spline Interpolation 

We consider n points (xi, f{xi)),{x 2 , f{x 2 )),---,{xn, f{xn)) in the plane. In every inter¬ 
val Xj<x<Xj+i we approximate the function f{x) with a cubic polynomial of the form 

p{x) = aj{x — Xj)^ -|- bj{x — Xj)'^ -|- Cj{x — xj) -|- dj. (3.30) 

We assume that 

Pj = p{xj) = f{xj). (3.31) 

In other words the pj for all j = 1, 2,..., n — 1 are known. From the above equation we 
conclude that 


dj=pj. 


We compute 


p (x) = 2>aj{x — Xj)"^ + ‘^bj{x — Xj) + cj. 


(3.32) 


(3.33) 


p (x) = 6 aj{x — Xj) + 2b j. 

Thus we get by substituting x = Xj into p" (x) the result 


ff 



By substituting x = x^+i into p" (x) we get the result 


Cld - 


Pj+l-Pj 

Qhi 


By substituting x = xj+i into p{x) we get 

Pj+i = ttjhj + bjhj + Cjhj +pj. 

By using the values of aj and bj we obtain 

_ Pj+i - Pj hj // 2 /') 

C- g (p,.+i + 2p^.). 


Hence 


(3.34) 

(3.35) 

(3.36) 

(3.37) 

(3.38) 


p{x) = 


Pj+i 


6hi 


.^.^3 I Pj I f Pj+l 


-{x-Xj) +^{x-Xj) 


■Pj 


- -^{Pj+1 + ‘^Pj ) ) (a; - + Pj- 


(3.39) 


In other words the polynomials are determined from pj and pj. The pj are known given 
by Pj = f{xj). It remains to determine Pj. We take the derivative of the above equation 



Pj+i-Pj 

2hj 


{x 


\2 " / 

Xj) +Pj[x 




Hj ,11 //, 

^(p,+i + 2p^.) 


(3.40) 
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This is the derivative in the interval [xj,Xj+i]. We compute 

p{xj) = - y (Pi+i + 2pi')) . 

The derivative in the interval \xj-i,Xj\ is 


p {x) = 


2hj—i 

We compute 


^ {X - Xj-l)'^ +Pj_l{x - Xj-l) + ^ ^ 


hi- 


i-i 


6 


(3.41) 


(p,+2p,_i) (.3.42) 


p{Xj) = 


Pj -Pj-i 


hj-i+pj_^hj-i + ( ^ - \^{Pj + 2 p"_i) 


2 ^ hj-i 

By matching the two expressions for p {xj) we get 

hj-ip-_i + 2{hj + hj-i)p” + 


(3.43) 


(3.44) 


These are n — 2 equations since j = 2, ...,n — 1 for n unknown p-. We need two more 

I 

equations. These are obtained by computing the first derivative p (x) at x = xi and 
x = Xn- We obtain the two equations 


hip'i + 2p;') = 2(£p2l _ ep\. 

hi 

7 ( " \ r, " \ ^{Pn ~ Pn—l) „ ' 

hn-l{Pn-l + ^Pn) = - T - + ^Pn- 

iT'n—l 


(3.45) 


(3.46) 


The n equations (3.44), (3.45) and (3.46) correspond to a tridiagonal linear system. In 


general Pi and p^ are not known. In this case we may use natural spline in which the 
second derivative vanishes at the end points and hence 


P2-Pl ' Pn-Pn-l ' „ 

-P\ = -^-Pn = 0- 


hi 


hn—1 


(3.47) 


3.6 The Method of Least Squares 

We assume that we have N data points {x{i),y{i)). We want to fit this data to some 
curve say a straight line ym = + b. To this end we define the function 

N N 

^ ~ 2/fit(*))^ = - mx{i) - bf. (3.48) 

i=l i=l 

The goal is to minimize this function with respect to b and m. We have 


We get the solution 


dA _ dA _ 
dm ^ ’ db 


_ Ei x{i) Y.j x{j)y{j) - Ei x{if J2j vU) 
(E.x(z)) 2 -AE,x 2 

Ei x{i) J 2 i vU) - ^ Ei xi{)y{i) 


m = 


(Ei3:(i))2-iV^. X 


2 
i 


(3.49) 

(3.50) 

(3.51) 
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3.7 Simulation 5: Newton-Raphson Algorithm 

A particle of mass m moves inside a potential well of height V and length 2a centered 
around 0. We are interested in the states of the system which have energies less than V, 
i.e. bound states. The states of the system can be even or odd. The energies associated 
with the even wave functions are solutions of the transcendental equation 


atanao = /?. 


a = 


2mE 


, /3 = 


2m{V — E) 

P ■ 


In the case of the infinite potential well we find the solutions 


En = 


(n + 
2ma^ 


n = 0,1.... 


We choose (dropping units) 


h = 1 , a = 1 , 2m = 1. 


In order to find numerically the energies En we will use the Newton-Raphson algorithm 
which allows us to find the roots of the equation /(x) = 0 as follows. From an initial 
guess xq, the first approximation xi to the solution is determined from the intersection of 
the tangent to the function f{x) at xq with the x—axis. This is given by 


xi = xo - 


fjxo) 

f{xo)' 


Next by using xi we repeat the same step in order to find the second approximation X 2 
to the solution. In general the approximation Xj+i to the desired solution in terms of the 
approximation x* is given by the equation 


Xi-\-\ — Xi , . 

f [Xi) 


( 1 ) 


For V = 10, determine the solutions using the graphical method. Consider the two 
functions _ 


/(a) = tanaa , g{a) 


a 



(2) Find using the method of Newton-Raphson the two solutions with a tolerance equal 
10“®. For the first solution we take the initial guess a = vr/a and for the second 
solution we take the initial guess a = 27r/a. 

(3) Repeat for V = 20. 

(4) Find the 4 solutions for V = 100. Use the graphical method to determine the initial 
step each time. 

(5) Repeat the above questions using the bisection method. 



Chapter 4 


The Solar System-The 
Runge-Kutta Methods 

4.1 The Solar System 

4.1.1 Newton’s Second Law 

We consider the motion of the Earth around the Sun. Let r be the distance and Mg 
and Me be the masses of the Sun and the Earth respectively. We neglect the effect of the 
other planets and the motion of the Sun (i.e. we assume that Mg >> Me). The goal is to 
calculate the position of the Earth as a function of time. We start from Newton’s second 
law of motion 



We get the two equations 


GMeMg 


GMeMg 


(xz + yj). 


d?x GMg 
dt'^ ^ 


(4.1) 


(4.2) 


fy _ GMg 


(4.3) 


We replace these two second-order differential equations by the four first-order differential 
equations 


dx 

dt 


= Vx 


(4.4) 


dvx GMg 

dt 


x. 


(4.5) 
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We recall 


dy 

dt ~ 

(4.6) 

dvy GMs 

dt = r3 y- 

(4.7) 

r = \/x 2 + y^. 

(4.8) 


4.1.2 Astronomical Units and Initial Conditions 

The distance will be measured in astronomical units (AU) whereas time will be mea¬ 
sured in years. One astronomical unit of lenght (1 AU) is equal to the average distance 
between the earth and the sun, viz lAU = 1.5 x The astronomical unit of mass 

can be found as follows. Assuming a circular orbit we have 




GM,M, 


Equivalently 


CM, = v^r. 


(4.9) 


(4.10) 


The radius is r = lAU. The velocity of the earth is v = 27rr/yr = 27rAU/yr. Hence 

GMs = dvr^AUVyr^- (4.11) 


For the numerical simulations it is important to determine the correct initial conditions. 
The orbit of Mercury is known to be an ellipse with eccentricity e = 0.206 and radius 
(semimajor axis) a = 0.39 AU with the Sun at one of the foci. The distance between 
the Sun and the center is ea. The first initial condition is xq = ri, yo = 0 where ri 
is the maximum distance from Mercury to the Sun,i.e. ri = (1 + e)a = 0.47 AU. The 
second initial condition is the velocity ( 0 ,ui) which can be computed using conservation 
of energy and angular momentum. For example by comparing with the point (0, b) on 
the orbit where b is the semiminor axis, i.e b = a\/l — the velocity {v 2 , 0 ) there can be 
obtained in terms of ( 0 , ui) from conservation of angular momentum as follows 

rivi = bv2 V2 = —. (4.12) 

b 

Next conservation of energy yields 


GM,M, 


+ ~MmVi — — 
ri 2 


GM,M, 


r2 


^ + -Mmvl 


(4.13) 


In above r 2 = V + 6 ^ is the distance between the Sun and Mercury when at the point 
(0, h). By substituting the value of V 2 we get an equation for vi. This is given by 


Vl 


GM, 1 - e 


1 + e 


8.2 AU/yr. 


(4.14) 
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4.1.3 Kepler’s Laws 

Kepler’s laws are given by the following three statements: 

• The planets move in elliptical orbits around the sun. The sun resides at one focus. 

• The line joining the sun with any planet sweeps out equal areas in equal times. 

• Given an orbit with a period T and a semimajor axis a the ratio /a? is a constant. 

The derivation of these three laws proceeds as follows. We work in polar coordinates. 
Newton’s second law reads 


^ GMsMe. 

Mer = -^-r. 


(4.15) 


We use f = 69 and 6 = —Of to derive r = rf + rOO and f = (f — r6‘^)f + {r6 + 2f9)6. 
Newton’s second law decomposes into the two equations 


rO + 2f6 = 0. 

.. .2 GM, 

r — rO =- 


(4.16) 


(4.17) 


Let us recall that the angular momentum by unit mass is dehned by / = fx f= r'^Of x 6. 
Thus I = r‘^0. Equation (4.16) is precisely the requirement that angular momentum is 
conserved. Indeed we compute 


^ = r{r9 + 2f6) = 0. 


(4.18) 


Now we remark that the area swept by the vector r in a time interval dt is dA = (r x rd9)/2 
where dO is the angle traveled by r during dt. Clearly 


— -h 

dt 2 


(4.19) 


In other words the planet sweeps equal areas in equal times since I is conserved. This is 
Kepler’s second law. 

The second equation (4.17) becomes now 

.. _ l'^ GMs 

By multiplying this equation with f we obtain 

^E = 0 , E=^f‘^ + ^ 
dt ’ 2 2r2 


GM, 


(4.20) 


(4.21) 


This is precisely the statement of conservation of energy. E is the energy per unit mass. 
Solving for dt in terms of dr we obtain 

dr 


dt = 


'2{E-^ + ^ 


(4.22) 
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However dt = {r^d9)/l. Thus 


de = 


I dr 


P I GMs 




(4.23) 


By integrating this equation we obtain (with u = 1/r) 

Q _ f Idr 


r\l2{E-^ + ^ 


du 


2E I 2GMs 


Z 2 + 12 


U — 


This integral can be done explicitly. We get 


(4.24) 


,'u-C\ , I 2PE 

6 = — arccos | —\ + 9 , e = W 1 + 


eC 




C = 


GMs 

P 


(4.25) 


By inverting this equation we get an equation of ellipse with eccentricity e since E < 0, 
viz 


- = Gil + ecos(9 — 9 )). 
r 


(4.26) 


This is Kepler’s first law. The angle at which r is maximum is 9 — 9 = tt. This distance 
is precisely (1 + e)a where a is the semi-major axis of the ellipse since ea is the distance 
between the Sun which is at one of the two foci and the center of the ellipse. Hence we 
obtain the relation 


(1 — e^)a = — = 




G GMs 


(4.27) 


From equation (4.19) we can derive Kepler’s third law. By integrating both sides of the 


equation over a single period T and then taking the square we get 

A2 = -Pt^. 

4 


(4.28) 


A is the area of the ellipse, i.e. A = nab where the semi-minor axis b is related the 
semi-major axis a by 6 = aVl — e^. Hence 


7r2a^(l - e^) = 

4 


(4.29) 


By using equation (4.27) we get the desired formula 


^2 _ 47r2 
a3 “ GMs 


(4.30) 





















CP and MFT, B.Ydri 


43 


4.1.4 The inverse-Square Law and Stability of Orbits 

Any object with mass generates a gravitational field and thus gravitational field lines 
will emanate from the object and radiate outward to infinity. The number of field lines 
N is proportional to the mass. The density of held lines crossing a sphere of radius r 
surrounding this object is given by V/ 47 rr^. This is the origin of the inverse-square law. 
Therefore any other object placed in this gravitational held will experience a gravitational 
force proportional to the number of held lines which intersect it. If the distance between 
this second object and the source is increased the force on it will become weaker because 
the number of held lines which intersect it will decrease as we are further away from the 
source. 


4.2 Euler-Cromer Algorithm 

The time discretization is 


t = t{i) = lAt , i = 0 ,..., N. (4.31) 

The total time interval is T = NAt. We dehne x{t) = x{i), Vx{t) = Vx{i), y{t) = y(i), 


Vy{t) = Vy{i). Equations (4.4), (4.5), (4. 6 ),(4.7) and (4.8) become (with z = 0,..., Y) 


/ \ / \ GMg / \ A 

Vx{l + 1) = Vx{t) - X[l)At. 

(r(z))'* 


(4.32) 


x{i -|- 1) = x{i) + Vx{i)At. 


( \ / \ GAIg / \ A 

Vy[l + 1) = Vy{i) - ■^-j^:^y{i)At. 


(r(i))= 


y{i + l) = y{i) + Vy{i)At. 
r{i) = \/x(i)2 y{iy. 

This is Euler algorithm. It can also be rewritten with x{i) = x{i — 1), y{i) 
Vx{i) = Vx{i — 1), Vyii) = Vy{i — 1), r{i) = r(i — 1 ) and i = 1, ..., Y -|- 1 as 

A / \ A / \ GAdg A / \ A 

Vx{l + 1) = Vx[l) - ^ ^ X[l)At. 

(r(z))'* 


(4.33) 

(4.34) 

(4.35) 

(4.36) 

= y(* - 1 ), 

(4.37) 


x{i -|- 1) = x{i) + Vx{i)At. 


A [ \ A / \ GMg A/ \ A 

Vy[l + 1) = Vy{i) - ^^^.^^^ y(i)At. 


mf 


y{i + l) = y{i) + Vy{i)At. 


(4.38) 

(4.39) 

(4.40) 
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r{i) = \/x(i)2 + y{iY. (4.41) 

In order to maintain energy conservation we employ Euler-Cromer algorithm. We calculate 
as in the Euler’s algorithm the velocity at time step i + 1 by using the position and velocity 
at time step i. However we compute the position at time step i + 1 by using the position 
at time step i and the velocity at time step i + 1 , viz 



^ / . \ '- / ■\ GM^s ^ / •\ \ 

Vxit + 1) = Vxit) x(^)A^. 

(4.42) 


x{i + 1) = x{i) + Vx{i + l)At. 

(4.43) 


^ \ .. / .\ GAIg ^ A 

Vy{t + 1) = Vy{z) ^^^.^^^y{i)At. 

(4.44) 


y{i + I) = yii) + Vy{i + l)At. 

(4.45) 

4.3 

The Runge-Kutta Algorithm 


4.3.1 

The Method 


The problem is still trying to solve the first order differential equation 



II 

(4.46) 


In the Euler’s method we approximate the function y = y{x) in each interval [xn-,Xn+i\ 
by the straight line 


Vn+l =yn + Axf{xn, yn)- (4.47) 

The slope f{xn,yn) of this line is exactly given by the slope of the function y = y{x) at 
the begining of the inetrval [xn-,Xn+i]- 

Given the value yn at Xn we evaluate the value yn+i at Xn+i using the method of Runge- 
Kutta as follows. First the middle of the interval x^+i] which is at the value Xn + \^x 
corresponds to the y-value yn+i calculated using the Euler’s method, viz yn+i = yn + 5^1 
where 

ki = Axf{xn,yn)- (4.48) 

Second the slope at this middle point (x^ + ^Ax,yn + ^ki) which is given by 

^ = f{xn + ^Ax, yn + ^ki) (4.49) 

is the value of the slope which will be used to estimate the correct value of 2 /n+i at x^+i 
using again Euler’s method, namely 


yn+l =yn + k 2 . 


(4.50) 
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In summary the Runge-Kutta algorithm is given by 


ki = Axf{xn,yn) 

k 2 = Axf{xn + - Ax, Vn + -ki) 

Vn+l =yn + k2. (4.51) 


The error in this method is proportional to Ax^. This can be shown as follows. We have 


y{x + Ax) = y{x) +Ax^ + ]^{Axf^ +... 

= y{x) +Axf{x,y) + ]^{Axf^f{x,y) + 


= y(x) + Ax^/(x,y) + + ... 

= y{x) + Ax/(x + ^Ax, y + ^Ax/(x, y)) + O(Ax^) 

= y(x) + Ax/(x +^Ax, 2 /+^/ci)+ 0(Ax^) 

= y(x) +/c 2 + O(Ax^). (4.52) 


Let us finally note that the above Runge-Kutta method is strictly speaking the second- 
order Runge-Kutta method. The first-order Runge-Kutta method is the Euler algorithm. 
The higher-order Runge-Kutta methods will not be discussed here. 


4.3.2 Example 1: The Harmonic Oscillator 

Let us apply this method to the problem of the harmonic oscillator. We have the 
differential equations 


Euler’s equations read 


dt 

did 

dt 



dn+l — dji AtUJfi 
Ldn+l — dJfi —9nAt. 


(4.53) 


(4.54) 


Eirst we consider the function 0 = 0{t). The middle point is (t„ -|- ^At,6n + ^ki) where 
ki = Atujn- Eor the function oj = uj{t) the middle point is {tn + \ At, 0 Jn + \kz) where 
k^, = —jAtOn. Therefore we have 


ki = AtUJn 
ks = -jAt0n. 


(4.55) 
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The slope of the function 6{t) at its middle point is 


k2 1 , 

—— — CJfi —/C 3 . 

At « ^ 2 

(4.56) 

The slope of the function Lo{t) at its middle point is 


>— 1 1 CN 

+ 

e 

os 

1 

II 

l<l 

(4.57) 

The Runge-Kutta solution is then given by 


dn+l = + ^2 

^n +1 — T ki- 

(4.58) 

4.3.3 Example 2: The Solar System 


Let us consider the equations 


dx 

(4.59) 

dvx GMs 

~r~ =- i^x. 

dt 

(4.60) 

dy 

dt 

(4.61) 

dvy GMs 

dt = r3 y- 

(4.62) 


First we consider the function x = x{t). The middle point is {tn + ^At,Xn + ^ki) where 
ki = At Vxn- For the function Vx = Vx{t) the middle point is + ^At,Vxn + 5 ^ 3 ) where 
ks = —k^^At Xn- Therefore we have 


— At Vxn 
, GMs , 

ks = - i^At Xn- 


(4.63) 


The slope of the function x{t) at the middle point is 

hi - _L It 
At 2^3- 

The slope of the function Vx{t) at the middle point is 


(4.64) 


ki 

At 


GM. 


1 , 




(4.65) 
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Next we consider the function y = y{t). The middle point is {tn + yn + ^k'l) where 
k[ = At Vyn- For the function Vy = Vy{t) the middle point is {tn + ^At,Vyn + where 
k'i = — yn- Therefore we have 


ki = At Vyn 
F _ GMs 


At yn- 


(4.66) 


The slope of the function y{t) at the middle point is 

k-2 1. ' 

^ + 2^3- 

The slope of the function Vy{t) at the middle point is 


(4.67) 


k^ 

At 




(4.68) 


In the above equations 


Rn = 


= \j {Xn + ^fei)2 + {yn + \k[Y- 


The Runge-Kutta solutions are then given by 


(4.69) 


Xn+l — Xn T k2 

Xx{n+1) = Xxn + ki 
Vn+l = ?/n + ^2 

Vy{n+i) = Vyn + k'^- (4.70) 

4.4 Precession of the Perihelion of Mercury 

The orbit of Mercury is elliptic. The orientation of the axes of the ellipse rotate 
with time. This is the precession of the perihelion (the point of the orbit nearest to the 
Sun) of Mercury. Mercury’s perihelion makes one revolution every 23000 years. This is 
approximately 566 arcseconds per century. The gravitational forces of the other planets 
(in particular Jupiter) lead to a precession of 523 arcseconds per century. The remaining 
43 arcseconds per century are accounted for by general relativity. 

For objects too close together (like the Sun and Mercury) the force of gravity predicted 
by general relativity deviates from the inverse-square law. This force is given by 

F = -^ = 1-1 X 10"®AU2. (4.71 

We discuss here some of the numerical results obtained with the Runge-Kutta method for 
different values of a- We take the time step and the number of iterations to be iV = 20000 
and dt = 0.0001. The angle of the line joining the Sun and Mercury with the horizontal 
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axis when mercury is at the perihelion is found to change linearly with time. We get the 
following rates of precession 


Thus 


a = 0.0008 


d9 

dt 

de 


= 8.414 ±0.019 


de 

dt 


a = 0.001 , — = 10.585 ± 0.018 

dt 

de 

a = 0.002 , — = 21.658 ± 0.019 

’ dt 

de 

a = 0.004 , — = 45.369 ± 0.017. 

’ dt 


= aa , a = 11209.2 ± 147.2 degrees/(yr.a). 


(4.72) 


(4.73) 


By extrapolating to the value provided by general relativity, viz a = 1.1 x 10 ® we get 


de 

— = 44.4 ± 0.6 arcsec/century. 


(4.74) 


4.5 Exercises 


Exercise 1: Using the Runge-Kutta method solve the following differential equations 





(4.75) 


d^z 


(4.76) 


dN 

dt 


aN -bN^. 


(4.77) 


Exercise 2: The Lorenz model is a chaotic system given by three coupled first order 
differential equations 


dx 

dt 


a{y - x) 


dy 

dt 

dz 

dt 


= —xz + rx — y 
= xy — bz. 


(4.78) 


This system is a simplified version of the system of Navier-Stokes equations of fluid me¬ 
chanics which are relevant for the Rayleigh-Benard problem. Write down the numercial 
solution of these equations according to the Runge-Kutta method. 
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4.6 Simulation 6 : Runge-Kutta Algorithm- The 
Solar System 

Part I We consider a solar system consisting of a single planet moving around the Sun. 
We suppose that the Sun is very heavy compared to the planet that we can safely assume 
that it is not moving at the center of the system. Newton’s second law gives the following 
equations of motion 

dx dvx GMs dy dvy GMg 

dt dt ^ dt dt 

We will use here the astronomical units defined by GMg = dvr^AU^/yr^. 

(1) Write a Fortran code in which we implement the Runge-Kutta algorithm for the 
problem of solving the equations of motion of the the solar system. 

(2) Compute the trajectory, the velocity and the energy as functions of time. What do 
you observe for the energy. 

(3) According to Kepler’s first law the orbit of any planet is an ellipse with the Sun at 
one of the two foci. In the following we will only consider planets which are known 
to have circular orbits to a great accuracy. These planets are Venus, Earth, Mars, 
Jupiter and Saturn. The radii in astronomical units are given by 

®venus — 0.72 , dearth — 1 ; ®mars — 1.52 , djupiter — 5.2 , dgaturn — 9.54. 

Verify that Kepler’s first law indeed holds for these planets. 

In order to answer questions 2 and 3 above we take the initial conditions 

a:(l) = a , y(l) = 0 , Vx{l) = 0 , Vy{l) = v. 

The value chosen for the initial velocity is very important to get a correct orbit 
and must be determined for example by assuming that the orbit is indeed circular 
and as a consequence the centrifugal force is balanced by the force of gravitational 
attraction. We get v = ^jGMgja. 

We take the step and the number of iterations At = 0.01 yv , N = 10^ — 10^. 

Part II 

(1) According to Kepler’s third law the square of the period of a planet is directly 
proportional to the cube of the semi-major axis of its orbit. For circular orbits the 
proportionality factor is equal 1 exactly. Verify this fact for the planets mentioned 
above. We can measure the period of a planet by monitoring when the planet returns 
to its farthest point from the sun. 

(2) By changing the initial velocity appropriately we can obtain an elliptical orbit. Check 
this thing. 
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(3) The fundamental laws governing the motion of the solar system are Newton’s law of 
universal attraction and Newton’s second law of motion. Newton’s law of universal 
attraction states that the force between the Sun and a planet is inversely proportioanl 
to the square of the distance between them and it is directed from the planet to the 
Sun. We will assume in the following that this force is inversely proportional to a 
different power of the distance. Modify the code accordingly and calculate the new 
orbits for powers between 1 and 3. What do you observe and what do you conclude. 


4.7 Simulation 7: Precession of the perihelion of 
Mercury 


According to Kepler’s first law the orbits of all planets are ellipses with the Sun at 
one of the two foci. This law can be obtained from applying Newton’s second law to the 
system consisting of the Sun and a single planet. The effect of the other planets on the 
motion will lead to a change of orientation of the orbital ellipse within the orbital plane 
of the planet. Thus the point of closest approach (the perihelion) will process, i.e. rotate 
around the sun. All planets suffer from this effect but because they are all farther from 
the sun and all have longer periods than Mercury the amount of precession observed for 
them is smaller than that of Mercury. 

However it was established earlier on that the precession of the perihelion of Mer¬ 
cury due to Newtonian effects deviates from the observed precession by the amount 
43 arcsecond/century. As it turns out this can only be explained within general rela¬ 
tivity. The large mass of the Sun causes space and time around it to be curved which 
is felt the most by Mercury because of its proximity. This spacetime curvature can be 
approximated by the force law 


^ ^ GMgMm I Q; _ 1 1 1 n- 

F — --(1 H-, OL — 1.1.10 




(1) Include the above force in the code. The initial position and velocity of Mercury are 


xo = (1 + e)a , 2/0 = 0. 


VxO - 0 , VyQ - 


GM, 1 - e 


a 1 + e 

Thus initially Mercury is at its farthest point from the Sun since a is the semi-major 
axis of Mercury (a = 0.39 AU) and e is its eccentricity (e = 0.206) and hence ea 
is the distance between the Sun and the center of the ellipse. The semi-minor axis 
is defined by 6 = a\/l — e^. The initial velocity was calculated from applying the 
principles of conservation of angular momentum and conservation of energy between 
the above initial point and the point (0,6). 


(2) The amount of precession of the perihelion of Mercury is very small because a is 
very small. In fact it can not be measured directly in any numerical simulation with 
a limited amount of time. Therefore we will choose a larger value of a for example 
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a = 0.0008 AU^. We also work with N = 20000 , dt = 0.0001. Compute the orbit 
for these values. Compute the angle 9 made between the vector position of Mercury 
and the horizontal axis as a function of time. Compute also the distance between 
Mercury and the sun and its derivative with respect to time given by 

dr _ xvx + yvy 
dt r 

This derivative will vanish each time Mercury reaches its farthest point from the sun 
or its closest point from the sun (the perihelion). Plot the angle 9p made between the 
vector position of Mercury at its farthest point and the horizontal axis as a function 
of time. What do you observe. Determine the slope dOp/dt which is precisely the 
amount of precession of the perihelion of Mercury for the above value of a. 

(3) Repeat the above question for other values of a say a = 0.001,0.002,0.004. Each 
time compute dOp/dt. Plot d9p/dt as a function of a. Determine the slope. De¬ 
duce the amount of precession of the perihelion of Mercury for the value of a = 
l.l.lO-SAU^. 



Chapter 5 

Chaotic Pendulum 


5.1 Equation of Motion 


We start from a simple pendulum. The equation of motion is given by 

ml—TT = —mgsmti. 
dt^ 


(5.1) 


We consider the effect of air resistance on the motion of the mass m. We will assume that 
the force of air resistance is given by Stokes’ law. We get 


ml 


d^ 

dt"^ 


—mg'sin 0 — mlq 


dt' 


(5.2) 


The air friction will drain all energy from the pendulum. In order to maintain the motion 
against the damping effect of air resistance we will add a driving force. We will choose a 
periodic force with amplitude mlFr, and frequency ojd- This arise for example if we apply 
a periodic electric field with amplitude Ed and frequency wd on the mass m which is 
assumed to have an electric charge q, i.e m/To = qED- It can also arise from the periodic 
oscillations of the pendulum’s pivot point. By adding the driving force we get then the 
equation of motion 


ml 


d^ 

dF 


—mg sin 6 — mlq 


d0 

dt 


+ mlEo cos ojot- 


(5.3) 


The natural frequency of the oscillations is given by the frequency of the simple pendulum, 
viz 


Wo = 



We will always take wq = 1, i.e. I = g. The equation of motion becomes 

d‘^e I dO . ^ 

-rpr + TV ^ + sm Cl = Ed cos ujot. 
dm Q dt 


(5.4) 


(5.5) 


The coefficient Q = 1/q is known as the quality factor. It measures how many oscillations 
the pendulum without driving force will make before its energy is drained. We will 
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write the above second order differential equation as two first order differential equations, 
namely 


dt 

1 ^ ^ 

—- = —— Siny + Fd COSCODt- 

dt Q 


(5.6) 


This system of differential equations does not admit a simple analytic solution. The linear 
approximation corresponds to small amplitude oscillations, viz 


sm y ~ 


The differential equations become linear given by 

dt 


Or equivalently 


dQ ^ 

—— = — — il — a + rD cosuDt. 
dt Q 


d0‘^ I de ^ ^ 


For Fd = 0 the solution is given by 

Oto = ( 0 ( 0 ) coscj^t H-(^( 0 ) + sincj^t) e 

For Fd 7 ^ 0 a particular solution is given by 

9oo = FD{acosujDt + bsmujDt) 

We find 

^ -( 1 -Wd ),6 = 


, w* = W 1 - 


4Q2 


1 


a = 


ud 


For Fd 7 ^ 0 the general solution is given by 

0 = 0 OO + 0 t- 


(5.7) 


(5.8) 


(5.9) 


(5.10) 


(5.11) 


(5.12) 


(5.13) 


= 


0 ( 0 )- 


Fpjl - ujj)) 


1 


cosoj^t H-I n(o) + 




0 ( 0 ) _ 1 Fd (1 - 2,ul) 

2 Q + ^ 


sin uj^t 


The last two terms depend on the initial conditions and will vanish exponentially at very 
large times t —)■ 00 , i.e. they are transients. The asymptotic motion is given by 0oo- 
Thus for t —)• 00 we get 


0 = 9oo = Fpiacosuipt + bsinojDt)- 


( 5 . 15 ) 


e . 

(5.14) 
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Also for t —)• oo we get 

dO 

Q, = — = F£)LJD{—a'SinujDt + bcosLJDt)- (5.16) 

We compute in the limit of large times t —)• oo 

e^ + ^ = F^D = + b^) = - ^ (5.17) 

(1_^2^)2 + ^ 

In other words the orbit of the system in phase space is an ellipse. The motion is periodic 
with period equal to the period of the driving force. This ellipse is also called a periodic 
attractor because regardless of the initial conditions the trajectory of the system will tend 
at large times to this ellipse. 

Let us also remark that the maximum angular displacement is Td- The function 
Fd = Fu(ujd) exhibits resonant behavior as the driving frequency approaches the natural 
frequency which is equivalent to the limit ojd —^ 1- In this limit F^ = QFq. The width 
of the resonant window is proportional to l/Q so for Q —)• oo we observe that F^ —)• oo 
when a;£) —)■ 1 while for Q —)• 0 we observe that Fq —)■ 0 when ojd —)■ 1. 

In general the time-asymptotic response of any linear system to a periodic drive is pe¬ 
riodic with the same period as the driving force. Furthermore when the driving frequency 
approaches one of the natural frequencies the response will exhibits resonant behavior. 

The basic ingredient in deriving the above results is the linearity of the dynamical 
system. As we will see shortly periodic motion is not the only possible time-asymptotic 
response of a dynamical system to a periodic driving force. 


5.2 Numerical Algorithms 


The equations of motion are 


dt 


(5.18) 


The external force is periodic and it will be given by one of the following expressions 

F{t) = Ff) cosLODt. (5.19) 


F{t) = F£)smujDt. 


(5.20) 


5.2.1 Euler-Cromer Algorithm 

Numerically we can employ the Euler-Cromer algorithm in order to solve this system of 
differential equations. The solution goes as follows. First we choose the initial conditions. 
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For example 


^^(l) = 0 
0 ( 1 ) = 0 
t{l) = 0. 


For i = 1 ,Y + 1 we use 

+ 1) = n(i) + — Q^{i) ~ sm6{i) + F(i)'j 

0(i + 1) = 0(i) + At Q(i + 1) 
t(i + 1) = At i. 


F(i) = F(t(i)) = Fd cos(jJDAt{i — 1). 
F{i) = F{t{i)) = Ff) sinw£)At(i — 1). 


5.2.2 Runge-Kutta Algorithm 

In order to achieve better precision we employ the Runge-Kutta algorithm. 
1,A -|- 1 we use 


ki 

ks 


k2 


k4, 


At n(i) 


At 


— — sin0(i) -|- F{i) 

O' 


Atfo(z) l-ks 




At 


n{i) + - sin (e{i) + l-kA + F{i + J) 


Q 


V 


9{i + 1) = 6{i) + k2 
Q{i -|-1) = n(z) -|- k4 
t{i -|- 1) = At i. 

F{i) = F{t{i)) = Fn coscjDAt(i — 1). 
F{i) = F{t{i)) = Ff) smu)DAt{i — 1). 

F{i + ^) = F'{t{i) + ^At) = Fd cos w_DAt(i 
F{i -|- -) = F{t{i) + i^At) = Fd sina;oAt(i 



(5.21) 

(5.22) 

(5.23) 

(5.24) 

For i = 


(5.25) 

(5.26) 

(5.27) 

(5.28) 

(5.29) 

(5.30) 
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5.3 Elements of Chaos 

5.3.1 Butterfly Effect: Sensitivity to Initial Conditions 

The solution in the linear regime (small amplitude) reads 


e = 6oo + et. (5.31) 

The transient is of the form 

= /(0(O),fl(O))e-*/2Q. (5.32) 

This goes to zero at large times t. The time-asymptotic is thus given by 

6oc = FoicLCOscoDt + bsmujot)- (5.33) 

The motion in the phase space is periodic with period equal to the period of the driving 
force. The orbit in phase space is precisley an ellipse of the form 

el + ^ = FUa^ + b^). (5.34) 

Let us consider a perturbation of the initial conditions. We can imagine that we have two 
pendulums A and B with slightly different initial conditions. Then the difference between 
the two trajectories is 

59 = (5/(0(O), L!(0))e-*/2Q. ( 5 . 35 ) 

This goes to zero at large times. If we plot In 56 as a function of time we find a straight line 
with a negative slope. The time-asymptotic motion is not sensitive to initial conditions. 
It converges at large times to 0oo no matter what the initial conditions are. The curve 
^oo = 0oo(f^oo) is called a (periodic) attractor. This is because any perturbed trajectory 
will decay exponentially in time to the attractor. 

In order to see chaotic behavior we can for example increase Q keeping everything else 
fixed. We observe that the slope of the line \n59 = \t starts to decrease until at some 
value of Q it becomes positive. At this value the variation between the two pendulums 
increases exponentially with time. This is the chaotic regime. The value A = 0 is the 
value where chaos happens. The coefficient A is called Lyapunov exponent. 

The chaotic pendulum is a deterministic system (since it obeys ordinary differential 
equations) but it is not predictable in the sense that given two identical pendulums their 
motions will diverge from each other in the chaotic regime if there is the slightest error 
in determining their initial conditions. This high sensitivity to initial conditions is known 
as the butterfly effect and could be taken as the definition of chaos itself. 

However we should stress here that the motion of the chaotic pendulum is not random. 
This can be seen by inspecting Poincare sections. 
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5.3.2 Poincare Section and Attractors 

The periodic motion of the linear system with period equal to the period of the driving 
force is called a period-1 motion. In this motion the trajectory repeats itself exactly every 
one single period of the external driving force. This is the only possible motion in the low 
amplitude limit. 

Generally a period-AA motion corresponds to an orbit of the dynamical system which 
repeats itself every N periods of the external driving force. These orbits exist in the 
non-linear regime of the pendulum. 

The Poincare section is defined as follows. We plot in the 6-Q. phase space only one 
point per period of the external driving force. We plot for example {6, fl) for 

ojot = (j) + 2TTn. (5.36) 

The angle cj) is called the Poincare phase and n is an integer. For period-1 motion the 
Poincare section consists of one single point. For period-AA motion the Poincare section 
consists of J\f points. 

Thus in the linear regime if we plot {6, fl) for uot = 27rn we get a single point since 
the motion is periodic with period equal to that of the driving force. The single point we 
get as a Poincare section is also an attractor since all pendulums with almost the same 
initial conditions will converge onto it. 

In the chaotic regime the Poincare section is an attractor known as strange attractor. 
It is a complicated curve which could have fractal structure and all pendulums with almost 
the same initial conditions will converge onto it. 

5.3.3 Period-Doubling Bifurcations 

In the case of the chaotic pendulum we encounter between the linear regime and the 
emergence of chaos the so-called period doubling phenomena. In the linear regime the 
Poincare section is a point P which corresponds to a period-1 motion with period equal 
To = 2Trlu}£)- The 0 or 17 coordinate of this point P will trace a line as we increase 
Q while keeping everything fixed. We will eventually reach a value Qi of Q where this 
line bifurcates into two lines. By close inspection we see that at Qi the motion becomes 
period-2 motion, i.e. the period becomes equal to 2 Td. 

In a motion where the period is (below Qi) we get the same value of 9 each time 
t = mTo and since we are plotting 9 each time t = 2n7r/cuD = nTp we will get a single 
point in the Poincare section. In a motion where the period is 2Tu (at Q 2 ) we get the 
same value of 9 each time t = 2mTo, i.e. the value of 9 at times t = mTo is different and 
hence we get two points in the Poincare section. 

As we increase Q the motion becomes periodic with period equal 4 Td, then with 
period equal 8 Td and so on. The motion with period 2-^Td is called period-AA motion. 
The corresponding Poincare section consists of M distinct points. 

The diagram of 0 as a function of Q is called a bifurcation diagram. It has a fractal 
structure. Let us point out here that normally in ordinary oscillations we get harmonics 
with periods equal to the period of the driving force divided by 2^. In this case we 
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obtained in some sense subharmonics with periods equal to the period of the driving force 
times 2-^. This is very characteristic of chaos. In fact chaotic behavior corresponds to 
the limit M —)• oo. In other words chaos is period-oo (bounded) motion which could be 
taken as another definition of chaos. 


5.3.4 Feigenbaum Ratio 

Let Qj\f be the critical value of Q above which the AAth bifurcation is triggered. In 
other words Q_^f is the value where the transition to period-AA motion happens. We define 
the Feigenbaum ratio by 




Qat-i - QAr -2 
Qj\f ~ Qaa—i 


(5.37) 


It is shown that PY —^ F = 4.669 as M —)■ oo. This is a universal ratio called the 
Feigenbaum ratio and it characterizes many chaotic systems which suffer a transition to 
chaos via an infinite series of period-doubling bifurcations. The above equation can be 
then rewritten as 


Af-2 


Qa! — Qi + {Q2 — Qi) ^ 


j=0 


Fi 


Let us define the accumulation point by Qoo then 


Qoo = Qi + (Q2 — Qi) 


F-1 


(5.38) 


(5.39) 


This is where chaos occur. In the bifurcation diagram the chaotic region is a solid black 
region. 


5.3.5 Spontaneous Symmetry Breaking 

The bifurcation process is associated with a deep phenomenon known as spontaneous 
symmetry breaking. The first period-doubling bifurcation corresponds to the breaking of 
the symmetry t —)■ t -|- Tp. The linear regime respects this symmetry. However period-2 
motion and in general period-AA motions with AA > 2 do not respect this symmetry. 

There is another kind of spontaneous symmetry breaking which occurs in the chaotic 
pendulum and which is associated with a bifurcation diagram. This happens in the region 
of period-1 motion and it is the breaking of spatial symmetry or parity 6 —)■ —9. Indeed 
there exists solutions of the equations of motion that are either left-favoring or right- 
favoring. In other words the pendulums in such solutions spend much of its time in the 
regions to the left of the pendulum’s vertical {6 < 0) or to the right of the pendulum’s 
vertical {9 > 0). This breaking of left-right symmetry can be achieved by a gradual 
increase of Q. We will then reach either the left-favoring solution or the right-favoring 
solution starting from a left-right symmetric solution depending on the initial conditions. 
The symmetry 9 —)■ —9 is also spontaneously broken in period-AA motions. 
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5.4 Simulation 8: The Butterfly Effect 

We consider a pendulum of a mass m and a length I moving under the influence of the 
force of gravity, the force of air resistance and a driving periodic force. Newton’s second 
law of motion reads 

d?6 9 ■ n d6 • o 

= - 7 sm e' - q— + Fd sm 27ri/DF 
dF I dt 

We will always take the angular frequency y/gjl associated with simple oscillations of the 
pendulum equal 1, i.e. I = g. The numerical solution we will consider here is based on 
the Euler-Cromer algorithm. 

The most important property of a large class of solutions of this differential equation 
is hyper sensitivity to initial conditions known also as the butterfly effect which is the 
defining characteristic of chaos. For this reason the driven non-linear pendulum is also 
known as the chaotic pendulum. 

The chaotic pendulum can have two distinct behaviors. In the linear regime the 
motion (neglecting the initial transients) is periodic with a period equal to the period of 
the external driving force. In the chaotic regime the motion never repeats and any error 
even infinitesimal in determining the initial conditions will lead to a completely different 
orbit in the phase space. 

(1) Write a code which implements the Euler-Cromer algorithm for the chaotic pendu¬ 
lum. The angle 9 must always be taken between —tt and tt which can be maintained 
as follows 

if(0i.lt. ^ 7t) 9i = 9i F 27r. 

(2) We take the values and initial conditions 

2 1 _i 

dt = 0.04s , 2TruD = x) <? = X'S > -Y = 1000 — 2000. 
o ^ 

9i = 0.2 radian , fli = 0 radian/s. 

Fd = 0 radian/s^ , Fd = 0.1 radian/s^ , Fd = 1.2 radian/s^. 

Plot 0 as a function of time. What do you observe for the first value of Fd- What 
is the period of oscillation for small and large times for the second value of Ed . Is 
the motion periodic for the third value of Fd- 


5.5 Simulation 9: Poincare Sections 

In the chaotic regime the motion of the pendulum although deterministic is not pre¬ 
dictable. This however does not mean that the motion of the pendulum is random which 
can clearly be seen from the Poincare sections. 

A Poincare section is a curve in the phase space obtained by plotting one point of the 
orbit per period of the external drive. Explicitly we plot points {9, fl) which corresponds 
to times t = n/i'D where n is an integer. In the linear regime of the pendulum the Poincare 
section consists of a single point. Poincare section in the chaotic regime is a curve which 
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does not depend on the initial conditions thus confirming that the motion is not random 
and which may have a fractal structure. As a consequence this curve is called a strange 
attractor. 

(1) We consider two identical chaotic pendulums A and B with slightly different initial 
conditions. For example we take 

9i = 0.2 radian , Of = 0.201 radian. 

The difference between the two motions can be measured by 

Ae, = ef - ef. 

Compute In A0 as a function of time for 

Td = 0.1 radian/s^ , Fd = 1.2 radian/s^. 

What do you observe. Is the two motions identical. What happens for large times. 
Is the motion of the pendulum predictable. For the second value of Fd use 

N = 10000 , dt = 0.01s. 

(2) Compute the angular velocity as a function of 9 for 

Fu = 0.5 radian/s^ , Fn = 1.2 radian/s^. 

What is the orbit in the phase space for small times and what does it represent. 
What is the orbit for large times. Compare between the two pendulums A and B. 
Does the orbit for large times depend on the initial conditions. 

(3) A Poincare section is obtained numerically by plotting the points (9, D) of the orbit 
at the times at which the function sinyrr'^t vanishes. These are the times at which 
this function changes sign. This is implemented as follows 

[({simruDU sin7riy£)ti+i.lt.0)then 
wnte{*,*)ti,9i,Qi. 

Verify that Poincare section in the linear regime is given by a single point in the 
phase space. Take and use Fu = 0.5 radian/s^ , N = 10^ — 10^ , dt = 0.001s. 
Verify that Poincare section in the chaotic regime is also an attractor. Take and use 
Fd = 1.2 radian/s^ , N = 10^ , dt = 0.04s. Compare between Poincare sections of 
the pendulums A and B. What do you observe and what do you conclude. 
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5.6 Simulation 10: Period Doubling 

Among the most important chaotic properties of the driven non-linear pendulum is 
the phenomena of period doubling. The periodic orbit with period equal to the period of 
the external driving force are called period-1 motion. There exist however other periodic 
orbits with periods equal twice, four times and in general 2^ times the period of the 
external driving force. The orbit with period equal 2^ times the period of the external 
driving force is called period-AA motion. The period doubling observed in the driven non¬ 
linear pendulum is a new phenomena which belongs to the world of chaos. In the standard 
phenomena of mixing the response of a non-linear system to a single frequency external 
driving force will contain components with periods equal to the period of the driving force 
divided by 2^. In other words we get ’’harmonics” as opposed to the ’’subharmonics” we 
observe in the chaotic pendulum. 

For period-AA motion we expect that there are N different values of the angle 6 for 
every value of Fd. The function 9 = 9{Fd) is called a bifurcation diagram. Formally the 
transition to chaos occurs at M —)■ oo. In other words chaos is defined as period-infinity 
motion. 

(1) We take the values and initial conditions 

2-1 1-1 

1 = g , 2'n:vD = -s ’ ^ = 2® ’ ^ 

6i = 0.2 radian , fli 
Determine the period of the motion for 

Fr, = 1.35 radian/s^ , F^ = 1.44 radian/s^ , Fjy = 1.465 radian/s^. 

What happens to the period when we increase F^- Does the two second values of 
Fd lie in the linear or chaotic regime of the chaotic pendulum. 

(2) Compute the angle 6 as a function of Fq for the times t which satisfy the condition 
27riv£)t = 2mr. We take Fq in the interval 

Fd = (1.34 -|- 0.005A:) radian/s^ , k = 1, ..., 30. 

Determine the interval of the external driving force in which the orbits are period-1, 
period-2 and period-4 motions. 

In this problem it is very important to remove the initial transients before we start 
measuring the bifurcation diagram. This can be done as follows. We calculate the 
motion for 2N steps but then only consider the last N steps in the computation of 
the Poincare section for every value of Fq. 


= 3000 - 100000 , dt = 0.01s. 
= 0 radian/s. 


5.7 Simulation 11: Bifurcation Diagrams 


Part I The chaotic pendulum is given by the equation 


d'^e 


sin 9 


— — -f Fd cos 2TruDt. 
Q dt 
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In this simulation we take the values = 1.5 radian/s^ and In order to 

achieve a better numerical precision we use the second-order Runge-Kutta algorithm. 

In the linear regime the orbits are periodic with period equal to the period To of the 
external driving force and are symmetric under 9 —)■ —9. There exists other solutions 
which are periodic with period equal Td but are not symmetric under 9 —)■ —9. In these 
solutions the pendulum spends the majority of its time in the region to the left of its 
vertical {9 < 0) or in the region to the right of its vertical (0 > 0). 

These symmetry breaking solutions can be described by a bifurcation diagram = 
^{Q). For every value of the quality factor Q we calculate the Poincare section. We 
observe that the Poincare section will bifurcate at some value Q* of Q. Below this value we 
get one line whereas above this value we get two lines corresponding to the two symmetry 
breaking solutions in which the pendulum spends the majority of its time in the regions 
{9 > 0) and (0 < 0). 

(1) Rewrite the code for the chaotic pendulum using Runge-Kutta algorithm. 

(2) We take two different sets of initial conditions 

9 = 0.0 radian , 11 = 0.0 radian/s. 

9 = 0.0 radian , II = —3.0 radian/s . 

Study the nature of the orbit for the values Q = 0.5s, Q = 1.24s and Q = 1.3s. 
What do you observe. 

(3) Plot the bifurcation diagram II = II((5) for values of Q in the interval [1.2,1.3]. 
What is the value Q* at which the symmetry 9 —)■ —0 is spontaneously broken. 

Part II As we have seen in the previous simulation period doubling can also be described 
by a bifurcation diagram. This phenomena is also an example of a spontaneous symmetry 
breaking. In this case the symmetry is t —)■ t + T£). Clearly only orbits with period Td 
are symmetric under this transformation. 

Let Qj\f be the value of Q at which the AAth bifurcation occurs. In other words this 
is the value at which the orbit goes from being a period-(AA — 1) motion to a period-AA 
motion. The Feigenbaum ratio is defined by 

^ QaT-i - Qn'-2 
^ Qn - Qn-i 

As we approach the chaotic regime, i.e. as M —)■ oo the ratio Fj^f converges rapidly to the 
constant value F = 4.669. This is a general result which holds for many chaotic systems. 
Any dynamical system which can exhibit a transition to chaos via an infinite series of 
period-doubling bifurcations is characterized by a Feigenbaum ratio which approaches 
4.669 as M —)■ oo. 

(1) Calculate the orbit and Poincare section for Q = 1.36s. What is the period of the 
motion. Is the orbit symmetric under t —)■ t + T£). Is the orbit symmetric under 
9 -9. 
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(2) Plot the bifurcation diagram = Q{Q) for two different sets of initial conditions for 
values of Q in the interval [1.3,1.36]. What is the value Q at which the period gets 
doubled. What is the value of Q at which the symmetry t —)■ t+T^ is spontaneously 
broken. 

(3) In this question we use the initial conditions 

9 = 0.0 radian , = 0.0 radian/s. 

Calculate the orbit and Poincare section and plot the bifurcation diagram = Q{Q) 
for values of Q in the interval [1.34,1.38]. Determine from the bifurcation diagram 
the values Qj\f for J\f = 1,2,3,4, 5. Calculate the Feigenbaum ratio. Calculate the 
accumulation point Qoo at which the transition to chaos occurs. 



Chapter 6 

Molecular Dynamics 


6.1 Introduction 

In the molecular dynamics approach we attempt to understand the behavior of a 
classical many-particle system by simulating the trajectory of each particle in the system. 
In practice this can be applied to systems containing 10® particles at most. The molecular 
dynamics approach is complementary to the more powerful Monte Carlo method. The 
Monte Carlo method deals with systems that are in thermal equilibrium with a heat bath. 
The molecular dynamics approach on the other hand is useful in studying how fast in real 
time a system moves from one microscopic state to another. 

We consider a box containing a collection of atoms or molecules. We will use Newton’s 
second law to calculate the positions and velocities of all the molecules as functions of 
time. Some of the questions we can answer with the molecular dynamics approach are: 

• The melting transition. 

• The rate of equilibration. 

• The rate of diffusion. 

As state above molecular dynamics allows us to understand classical systems. A classical 
treatment can be justihed as follows. We consider the case of liquid argon as an example. 
The energy required to excite an argon atom is of the order of lOeV while the typical 
kinetic energy of the center of mass of an argon atom is O.leV. Thus a collision between 
two argon atoms will not change the electron configuration of either atoms. Hence for 
all practical purposes we can ignore the internal structure of argon atoms. Furthermore 
the wavelength of an argon atom which is of the order of 10“^A is much smaller than the 
spacing between argon atoms typically of the order of lA which again justifies a classical 
treatment. 


6.2 The Lennard-Jones Potential 

We consider a box containing N argon atoms. For simplicity we will assume that our 
argon atoms move in two dimensions. The equations of motion of the ith atom which is 
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located at the position {xi,yi) with velocity {vi^x,Vi^y) read 


dt 


— ^x,i 


dxi 

dt 


= V. 




( 6 . 1 ) 


dvi^y _ dyi _ 

dt ~ ’ dt ~ 


( 6 . 2 ) 


Each argon atom experience a force from all other argon atoms. In order to calculate 
this force we need to determine the interaction potential. We assume that the interaction 
potential between any pair of argon atoms depend only on the distance between them. 
Let Vij and u{rij) be the distance and the interaction potential between atoms i and j. 
The total potential is then given by 


N-l N 

u ='^ (6-3) 

2=1 ^= 2+1 


The precise form of u can be calculated from first principles, i.e. from quantum mechanics. 
However this calculation is very complicated and in most circumstances a phenomenolog¬ 
ical form of u will be sufficient. 

For large separations the potential u(rij) must be weakly attractive given by the 
Van der Walls force which arises from electrostatic interaction between the electric dipole 
moments of the two argon atoms. In other words u{rij) for large rij is attractive due to the 
mutual polarization of the two atoms. The Van der Walls potential can be computed from 
quantum mechanics where it is shown that it varies as 1 / rfj. For small separations Vij the 
potential u{rij) must become strongly repulsive due to the overlap of the electron clouds 
of the two argon atoms. This repulsion known also as core repulsion is a consequence 
of Pauli exclusion principle. It is a common practice to choose the repulsive part of the 
potential u to be proportional to The total potential takes the form 


u{r) = 4e 




(6.4) 


This is the Lennard-Jones potential. The parameter a is of dimension length while e is 
of dimension energy. We observe that at r = o" the potential is 0 identically while for 
r > 2.5cj the potential approaches zero rapidly. The minimum of the potential occurs at 
r = The depth of the potential at the minimum is e. 

The force of atom k on atom i is 


24e 

fk,i — ^ k,iU(Tk,i) — 

^ki 


X 12 / \ 

21-1 -(-) 

\rkij 


^ki 


6n 


^ki' 


(6.5) 


The acceleration of the ith atom is given by 


^a:,2 ^ ^ fk^i ^k,i ^ ^ fk,i 


m 


k^i 


k^i 


Xi X]^ 
'^ki 


24e 


E 

k^i 


Xi Xj^ 

YT 


i-Y- 

\rkij 


12 


(0 

\rkij 


6n 


( 6 . 6 ) 
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a 


y,i — 


1 

m 


fk,i sin Ok^i 

k^i 


-Efe 

m r"^ 


k^i 


Vi - Vk 
Vki 


24e Ui — Uk 

fn ^ r?. 

k^i 



12 



(6.7) 


6.3 Units, Boundary Conditions and Verlet Algo¬ 
rithm 

Reduced Units We choose a and e as the units of distance and energy respectively. 
We also choose the unit of mass to be the mass m of a single argon atom. Everything else 
is measured in terms of a, e and m. For example velocity is measured in units of 
and time in units of . The reduced units are given by 


a = e = m = 1. 


( 6 . 8 ) 


For argon atoms we have the values 

0 - = 3.4 X , e = 1.65 x 10“^^ = 120 A:bJ , m = 6.69 x 10“^®%. (6.9) 


Thus 


a 


— = 2.17 X 10“^^ 
e 


s. 


( 6 . 10 ) 


Hence a molecular dynamics simulation which runs for 2000 steps with a reduced time 
step At = 0.01 corresponds to a total reduced time 2000 x 0.01 = 20 which is equivalent 
to a real time 20iT(e/m)^/^ = 4.34 x 10“^^s. 


Periodic Boundary Conditions The total number of atoms in a real physical sys¬ 
tem is huge of the order of 10^^. If the system is placed in a box the fraction of atoms of 
the system near the walls of the box is negligible compared to the total number of atoms. 
In typical simulations the total number of atoms is only of the order of 10^ — 10® and in 
this case the fraction of atoms near the walls is considerable and their effect can not be 
neglected. 

In order to reduce edge effects we use periodic boundary conditions. In other words 
the box is effectively a torus and there are no edges. Let Lx and Ly be the lengths of the 
box in the x and y directions respectively. If an atom crosses the walls of the box in a 
particular direction we add or subtract the length of the box in that direction as follows 

if (x > Lx) then x = x — Lx 

if (x < 0) then x = x -|- Lx- (6-11) 


if (y > Ly) then y = y - Ly 
if (y < 0) then y = y + Ly. 


( 6 . 12 ) 
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The maximum separation in the x direction between any two particles is only Ta;/2 whereas 
the maximum separation in the y direction between any two particles is only Lyl2. This 
can be implemented as follows 


if {xij > +Lx/2) then Xij = Xij - Lx 


if {xij < -Lxl2) then Xij = Xij + Lx- 

(6.13) 

if {yij > +Lyj2) then yij = yij - Ly 


if {yij < -Lyj2) then y^j = yij + Ly. 

(6.14) 


Verlet Algorithm The numerical algorithm we will use is Verlet algorithm. Let us 
consider the forward and backward Taylor expansions of a function / given by 

f{tn + At) = f{tn) + (6.15) 

m - A*) = /(*„) - At||,. + l(Atf gl,. - 1 (A*)= + ... ( 6 . 16 ) 

Adding these expressions we get 

f{tn + At) = 2/(tn) - f{tn - At) + + O(At^). (6.17) 

We remark that the error is proportional to At^ which is less than the errors in the Euler, 
Euler-Cromer and second-order Runge-Kutta methods so this method is more accurate. 
We have therefore for the ith atom 


Xi,n+1 — Xi^ri—1 T (At) Qix,i,n- 

yi,n+l — ‘^yi,n yi,n—l T (At) dy^i^n- 
The force and the acceleration are given by 


fk,i,n 


24e 


T’ki,n L \^ki,n 


a 


12 


dx,i,n — / ^ fkA.r, 

m ^ 

k^i 




-y,fkA,r 

m ^ 

k^i 


'f’ki,n 


The separation Vki^n between the two atoms k and i is given by 

'^ki,n \J(Xi,n {jji^n yk,n)- 


(6.18) 

(6.19) 


(Ml 

( 6 . 20 ) 



^i.,n ^k.,n 

( 6 . 21 ) 

'^ki.,n 


Vi^n yk,n 

( 6 . 22 ) 


(6.23) 
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In the Verlet method it is not necessary to calculate the components dxi^n/dt and dyi^n/dt 
of the velocity. However since the velocity will be needed for other purposes we will also 
compute it using the equations 


V 


x,i,n — 


^2,71+1 ^2,n—1 

2At 


(6.24) 




yi,n-\-l Vi^n—l 

2Ai 


(6.25) 


Let us remark that the Verlet method is not self starting. In other words given the initial 
conditions Xjq, Vx,i,i and Vy^i^i we need also to know Xi^2, Vi,2, Vx,i,2 and Vy^i^2 for the 
algorithm to start which can be determined using the Euler method. 


6.4 Some Physical Applications 

6.4.1 Dilute Gas and Maxwell Distribution 

A gas in thermal equilibrium is characterized by a temperature T. Molecular dynamics 
allows us to study how a dilute gas approaches equilibrium. The temperature of the gas 
can be computed using the molecular dynamics simulations as follows. According to the 
equipartition theorem the average thermal energy of each quadratic degree of freedom in 
a gas in thermal equilibrium is equal kBT/2. In other words 

^ksT = ^ < ^rniP > . (6.26) 

The average <> can be understood in two different but equivalent ways. We can follow 
the motion of a single atom and take the time average of its kinetic energy. The same 
result can be obtained by taking the average of the kinetic energy over the different atoms. 
In this latter case we write 

1 1^1 

Another way of measuring the temperature T of a dilute gas is through a study of the 
distribution of atom velocities. A classical gas in thermal equilibrium obeys Maxwell 
distribution. The speed and velocity distributions in two dimensions are given respectively 
by 

TI mv^ 

p(v) = C-—e (6.28) 

kbT 


P{Vx) = Cx 


1 


mv^ 

2fc^T 


P{Vy) = Cy 


1 


2fcgT 


(6.29) 


Recall that the probability per unit v of finding an atom with speed v is equal P{v) whereas 
the probability per unit Vx,y of finding an atom with velocity Vx,y is equal P{vx,y)- The 
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constants C and Cx,y are determined from the normalization conditions. There are peaks 
in the distributions P{v) and P{vx^y)- Clearly the temperature is related to the location 
of the peak which occurs in P{v). This is given by 

ksT = (6-30) 


6.4.2 The Melting Transition 

This is a very important subject which we will discuss at great length in the second 
lab problem of this chapter. 

6.5 Simulation 12 : Maxwell Distribution 

We consider the motion in two dimensions of N argon atoms in an L x L box. The 
interaction potential u between any two atoms in the gas separated by a distance r is given 
by the Lennard-Jones potential. The numerical algorithm we will use is Verlet algorithm. 

In this problem we will always take L odd and N a perfect square. The lattice spacing 
is defined by 


L 



Clearly there are N cells of area a x a. We choose L and N such that a > 2a. For 
simplicity we will use reduced units a = e = m = 1. In order to reduce edge effects we 
use periodic boundary conditions. In other words the box is effectively a torus and there 
are no edges. Thus the maximum separation in the x direction between any two particles 
is only L/2 and similarly the maximum separation in the y direction between any two 
particles is only L/2. 

The initial positions of the atoms are fixed as follows. The atom k = ^/N{i — 1) + j will 
be placed at the center of the cell with corners {i + 1, j), {i,j + 1) and (i + 1, j + 1). 

Next we perturb in a random way these initial positions by adding random numbers in 
the interval [—a/4,+a/4] to the x and y coordinates of the atoms. The initial velocities 
can be chosen in random directions with a speed equal vo for all atoms. 

(1) Write a molecular dynamics code along the above lines. Take L = 15, N = 25, 
At = 0.02, Time = 500 and vq = 1. As a first test verify that the total energy is 
conserved. Plot the trajectories of the atoms. What do you observe. 

(2) As a second test we propose to measure the temperature by observing how the gas 
approaches equilibrium. Use the equipartition theorem 

N 

i=l 

Plot T as a function of time. Take Time = 1000 — 1500. What is the temperature 
of the gas at equilibrium. 
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(3) Compute the speed distribution of the argon atoms by constructing an appropriate 
histogram as follows. We take the value Time = 2000. We consider the speeds of 
all particles at all times. There are Time x N values of the speed in this sample. 
Construct the histogram for this sample by 1) finding the maximum and minimum, 
2) dividing the interval into bins, 3) determining the number of times a given value 
of the speed falls in a bin and (4) properly normalizing the distribution. Compare 
with the Mawell distribution 

9 2 

pMaxwellC^^) = C -—— 6 . 

kbT 

Deduce the temperature from the peak of the distribution given by ksT = 
Compare with the value of the temperature obtained from the equipartition theorem. 
What happens if we increase the initial speed. 


6.6 Simulation 13 : Melting Transition 

We would like to study the melting transition. First we need to establish the correct 
conditions for a solid phase. Clearly the temperature must be sufficiently low and the 
density must be sufficiently high. To make the temperature as low as possible we will 
start with all particles at rest. In order to obatin maximum attraction between atoms we 
choose a low density of approximately one particle per unit reduced area. In particular 
we choose N = 16 and L = 4. 

(1) Show that with these conditions you obtain a crystalline solid with a triangular 
lattice. 

(2) In order to observe melting we must heat up the system. This can be achieved by 
increasing the kinetic energy of the atoms by hand. A convenient way of doing this 
is to rescale the current and previous positions of the atoms periodically (say every 
1000 steps) as follows 

hh = int(n/1000) 

if (hh * 1000.eq.n) then 

x{i, n) = x{i, n + 1) — R{x{i, n + 1) — x{i, n)) 

y{h n) = y{i, n + 1) - R{y{i, n + 1) - y{i, n)) 

endif. 

This procedure will rescale the velocity by the amount R. We choose R = 1.5. Verify 
that we will indeed reach the melting transition by means of this method. What 
happens to the energy and the temperature. 



Chapter 7 

Pseudo Random Numbers and 
Random Walks 


7.1 Random Numbers 

A sequence of numbers ri, r 2 ,.-- is called random if there are no correlations between 
the numbers. The sequence is called uniform if all numbers have an equal probability to 
occur. More precisely let the probability that a number n in the sequence occurs between 
r and r + dr be P{r)dr where P{r) is the probability distribution. A uniform distribution 
corresponds P{r) = constant. 

Most random number generators on computers generate uniform distributions between 
0 and 1. These are sequences of pseudo random numbers since given Vi and its preceding 
elements we can compute r^+i. Therefore these sequences are not really random and 
correlations among the numbers of the sequence exist. True random numbers can be 
found in tables of random numbers determined during say radioactive decay or other 
naturally occurring random physical phenomena. 


7.1.1 Linear Congruent or Power Residue Method 


In this method we generate a set of k random numbers ri,r 2 ,.--Tfc in the interval 
[0, M — 1] as follows. Given a random number rj_i we generate the next random number 
Tj by the rule 


ri = (arj_i + c) mod M 


remainder 


ari-i + c\ 
M )' 


(7.1) 


The notation y = z mod M means that we subtract M from z until 0<y<M — 1. The 
first random number ri is supplied by the user and it is called the seed. Also supplied 
are the multiplier a, the increment c and the modulus M. The remainder is a built-in 
function in most computer languages. The largest possible integer number generated by 
the above rule is M — 1. Thus the maximum possible period is M, i.e k<M. In general 
the period k depends on a, c and M. To get a uniform sequence in the interval [0,1] we 
divide by M — 1. 
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Let us take the following example o = 4,c = 1 and M = 9 with seed ri = 3. We get a 
sequence of length 9 given by 


3,4, 8, 6, 7, 2,0,1, 5. 


(7.2) 


After the last number 5 we get 3 and therefore the sequence will repeat. In this case the 
period is M = 9. 

It is clear that we need to choose the parameters a, c and M and the seed ri with 
care so that we get the longest sequence of pseudo random numbers. The maximum 
possible period depends on the size of the computer word. A 32—bit machine may use 
M = 2^^ = 2 X 10®. The numbers generated by (7.1) are random only in the sense that 


they are evenly distributed over their range. Equation (7.1) is related to the logistic map 


which is known to exhibit chaotic behaviour. Although chaos is deterministic it looks 


random. In the same way although equation (7.1) is deterministic the numbers generated 


by it look random. This is the reason why they are called pseudo random numbers. 


7.1.2 Statistical Tests of Randomness 

Period : The first obvious test is to verify that the random number generator has a 
sufficiently long period for a given problem. We can use the random number generator to 
plot the position of a random walker. Clearly the plot will repeat itself when the period 
is reached. 


Uniformity : The A:th moment of the random number distribution is 


< Xj >= — 

* N 


1 ^ 


i=l 


Let P{x) be the probability distribution of the random numbers. Then 

/■i 1 

< Xi >= J dx x’^P{x) + 0{-^). 


For a uniform distribution P{x) = 1 we must have 


< Xi > = 


1 


1 


fe + 1 


In the words 


N 




iV 

i=l 


k + 1 


= 0 ( 1 ). 


(7.3) 


(7.4) 


(7.5) 


(7.6) 


This is a test of uniformity as well as of randomness. To be more precise if < > is equal 

to l/(/c + 1) then we can infer that the distribution is uniform whereas if the deviation 
varies as l/y/N then we can infer that the distribution is random. 

A direct test of uniformity is to divide the unit interval into K equal subintevals (bins) 
and place each random number in one of these bins. For a uniform distribution we must 
obtain N/K numbers in each bin where N is the number of generated random numbers. 
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Chi-Square Statistic : In the above test there will be statistical fluctuations about the 
ideal value N/K for each bin. The question is whether or not these fluctuations are 
consistent with the laws of statistics. The answer is based on the so-called chi-square 
statistic deflned by 

2 ^ (Yj - U-ideal)^ 

^ nideal ■ ^ ^ ^ 

In the above definition Ni is the number of random numbers which fall into bin i and 
Uideai is the expected number of random numbers in each bin. 

The probability of finding any particular value which is less than Xm is found to 
be proportional to the incomplete gamma function 7 (i// 2 ,x^/ 2 ) where u is the number 
of degrees of freedom given hy i/ = K — 1. We have 

PX < xi.) = = P(r'/2,xL/2). (7.8) 

The most likely value of for some fixed number of degrees of freedom corresponds 
to the value P(i^/2,x^/2) = 0.5. In other words in half of the measurements (bin tests), 
for some fixed number of degrees of freedom i/, the chi-square statistic predicts that we 
must And a value of Xm smaller than the maximum. 

Randomness : Let ri, r 2 ,...,rAr be a sequence of random numbers. A very effective test 
of randomness is to make a scatterplot of {xi = r 2 i,yi = ?' 2 i-i-i) for many i. There must 
be no regularity in the plot otherwise the sequence is not random. 


Short- Term Correlations 
C{j) 


: Let us define the autocorrelation function 

< XjXj+j > - < XjX Xj+j > 

< XiXi > — < Xj >2 

< XiXi+j > - < Xi >2 . 

< XjXj > — < Xi 


(7.9) 


In the above equation we have used the fact that < Xi+j >=< Xi > for a large sample, 
i.e. the choice of the origin of the sequence is irrelevant in that case and 


N-j 


XiXi-\-j ^ — 


N-j 


. ^ ^ XiXi-\-j. 


i=l 


(7.10) 


Again if Xi and Xi+j are independent random numbers which are distributed with the 
joint probability distribution P(xi,Xi+j) then 

dx [ dyxyP{x,y). (7.11) 

Jo 

We have clearly assumed that N is large. For a uniform distribution, viz P{x,y) = 1 we 
get 


<C XiXi-\-j 


1 

< XiXi+j >~ -. 


(7.12) 
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For a random distrubution the deviation from this result is of order 1 /\/iV- Hence in the 
case that the random numbers are not correlated we have 

C(j) = 0. (7.13) 


7.2 Random Systems 

Both quantum and statistical physics deal with systems that are random or stochastic. 
These are non deterministic systems as opposed to classical systems. The dynamics of 
a deterministic system is given by a unique solution to the equations of motion which 
describes the physics of the system at all times. 

We take the case of the diffusion of fluid molecules. For example the motion of dust 
particles in the atmosphere, the motion of perfume molecules in the air or the motion of 
milk molecules in a coffee. These are all cases of a Brownian motion. 

In the case of a drop of milk in a coffee the white mass of the drop of milk will slowly 
spread until the coffee takes on a uniform brown color. At the molecular level each milk 
molecule collides with molecules in the coffee. Clearly it will change direction so frequently 
that its motion will appear random. This trajectory can be described by a random walk. 
This is a system in which each milk molecule moves one step at a time in any direction 
with equal probability. 

The trajectory of a dust, perfume or milk molecule is not really random since it can 
in principle be computed by solving Newton’s equations of motion for all molecules which 
then allows us to know the evolution of the system in time. Although this is possible 
in principle it will not be feasible in practice. The random walk is thus effectively an 
approximation. However the large number of molecules and collisions in the system makes 
the random walk a very good approximation. 

7.2.1 Random Walks 

Let us consider a one dimensional random walk. It can take steps of lenght unity along 
a line. It begins at sq = 0 and the first step is chosen randomly to be either to the left 
or to right with equal probabilities. In other words there is a 50 per cent chance that the 
walker moves to the point si = +1 and a 50 per cent chance that it moves to the point 
Si = —1. Next the walker will again move either to the right or to the left from the point 
Si to the point S 2 with equal probabilities. This process will be repeated N times and we 
get the position of the walker xn as a function of the step number N. In the motion of a 
molecule in a solution the time between steps is a constant and hence the step number N 
is proportional to time. Therefore xat is the position of the walker as a function of time. 

In general a one-dimensional random walker can move to the right with probability p 
and to the left with probability q = 1 — p with steps of equal lenght a. The direction of 
each step is independent of the previous one. The displacement or position of the walker 
after N steps is 
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N 

XN = '^Si. ( 7 . 14 ) 

i=l 

The walker for p = q = lj2 can be generated by flipping a coin N times. The position is 
increased by a for heads and decreased by a for tails. 

Averaging over many walks each consisting of N steps we get 

N 

< xn >= ^ < Si >= N < s > . ( 7 . 15 ) 

i=l 

In above we have used the fact that the average over every step is the same given by 

< Si >=< s >= p{a) + q{—a) = {p — q)a. ( 7 . 16 ) 

For p = q = 1/2 we get < xw >= 0. A better measure of the walk is given by 



The mean square net displacement Ax^ is defined by 

Ax^ =< (xtv— < xn >)^ >=< x% > — < xn >‘^ ■ 


(7.17) 


(7.18) 


We compute 

N N 

Ax^ = ^ ^ < (sj— < s >){sj— < s>) > 

i=i j=i 

N N 

= ^ < (sj-< s >)(sj-< s >) >< (sj-< s >)^ > . (7.19) 

ij^j=l i=l 

In the first term since i ^ j we have < (s*— < s >){sj— < s >) >=< (s*— < s >) >< 
{sj— < s >) >. But < (sj— < s >) >= 0. Thus 

N 

Ax^ = ^ < (sj— < s >)^ > 

i=l 

= N{< Si>-<s >^>) 

= iV(a2 - (p - g) V) 

= iNpqa^. (7.20) 

For p = q = 1/2 and a = 1 we get 

<x%> = N. (7.21) 


The main point is that since N is proportional to time we have < x^ >oc t. This is an 
example of a diffusive behaviour. 
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7.2.2 Diffusion Equation 

The random walk is successful in simulating many physical systems because it is related 
to the solutions of the diffusion equation. To see this we start from the probability P{i, N) 
that the random walker is at site Si after N steps. This is given by 

P(i, N) = ^ (^Pii + 1,N -1)+P{i-1,N - 1)^ . (7.22) 

Let r be the time between steps and a the lattice spacing. Then t = Nt and x = ia. Also 
we define P{x,t) = P{i,N)/a. We get 

P{x, ^) — 2 + a,t — t) + P{x — a,t — r)^ . (7.23) 

Let us rewrite this equation as 

P(x + a,t — t) — 2P(x, t — t) + P(x — a,t — t) 

\ 

(7.24) 


i (p{x, t) - P{x, t - r) j = 


In the limit a —0, r —0 with the ratio D = c? kept fixed we obtain the equation 


dP{x,t) d‘^P{x,t) 

dt dx"^ 

This is the diffusion equation. Generalization to 3—dimensions is 

dP{x,y,z,t) 


dt 


= DV P{x,y,z,t). 


A particular solution of (7.25) is given by 


1 _ , - 

P(x,t) = —e ^ , cr = v2Dt. 
a 


(7.25) 


(7.26) 


(7.27) 


In other words the spatial distribution of the diffusing molecules is always a gaussian with 
half-width a increasing with time as \/t. 

The average of any function / of x is given by 


< fix,t) >= 


f{x)P{x, t)dx. 


(7.28) 


Let us multiply both sides of (7.25) by f{x) and then integrate over x, viz 




' d^P{x,t) 


(7.29) 


Clearly 

/ = j ^ ^ ^ ^ ^ ^ .(7.30) 
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Thus 


A 

dt 


< f{x) > 


We have P{x = Too, t) 
get 


= dJ fix) 


d^P(x, t) 
dx"^ 


dx 


= D{ fix) |^=+~ _ D 


dfix) dPix, t) 


dx. 


(7.31) 


dx J ^ J dx dx 

= 0 and also all spatial derivatives are zero at x = ±oo. We then 


dt 


< fix) > 


Let us choose /(x) = x. Then 


^ r dfjx) dPix,t) 
J dx dx 


(7.32) 


In other words < x >= 
Thus 


dt 


< X > = —D 


dPix, t) 
dx 


dx = 0. 


(7.33) 


constant and since x = 0 at t = 0 we must have constant = 0. 


< X >= 0. 


(7.34) 


Let us next choose /(x) = x^. Then 


A 

dt 


< X 


> 


-2D 

2D. 


dPix,t) 

X — - dx 

dx 


Hence 


< x^ > = 2Dt. 


(7.35) 


(7.36) 


This is the diffusive behaviour we have observed in the random walk problem. 


7.3 The Random Number Generators RAN 0,1,2 

Linear congruential generators are of the form 

Vi = iavi-i + c) mod M. (7.37) 

For c > 0 the linear congruential generators are called mixed. They are denoted by 
LCG(a, c, M). The random numbers generated with LCG(a, c, M) are in the range [0, M— 
!]• 

For c = 0 the linear congruential generators are called multiplicative. They are denoted 
by MLGG(a, M). The random numbers generated with MLCG(a, M) are in the range 



CP and MFT, B.Ydri 


78 


In the case that a is a primitive root modulo M and M is a prime the period of the 
generator is M — 1. A number a is a primitive root modulo M means that for any integer 
n such that gcd(n, M) = 1 there exists a k such that = n mod M. 

An example of MLCG is RANG due to Park and Miller which is used extensively on 
IBM computers. In this case 

a = 16807 = 7^ , M = 2^^ - 1. (7.38) 

The period of this generator is not very long given by 

period = 2^^ - 2 ~ 2.15 x 10®. (7.39) 

This generator can not be implemented directly in a high level language because of integer 
overflow. Indeed the product of a and M —1 exceeds the maximum value for a 32—bit inte¬ 
ger. Assemply language implementation using 64—bit product register is straightforward 
but not portable. 

A better solution is given by Schrage’s algorithm. This algorithm allows the multipli¬ 
cation of two 32—bit integers without using any intermediate numbers which are larger 
than 32 bits. To see how this works explicitly we factor M as 

M = aq + r. (7.40) 



dXi 

Xi 


1 

aq + r 

9+7 

q l + - 

^ qa 



Xi, r 

= 

q qa 



Xi Xir 



Q 

aq q 


(7.41) 

(7.42) 

(7.43) 

(7.44) 


(7.45) 
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Clearly 


aq M — r M 


Hence 


r CL^i , 


.Xi 


(7.46) 


(7.47) 


if neglecting e = {rXi)/{aq^) does not affect the integer part of aXi/M and 

[((^1 = [—1 - 1 

if neglecting e does affect the integer part of aXi/M. Therefore we get 


(7.48) 


if 


Also 


if 


Xi+i = aXi - [^]{aq + r) 

= a{X,-[^]q)-\^\r 


M 


M 


= a{Xi - [y]g) - [y]r 
= a{Xi mod q) - [^]c 


X- 

a{Xi mod q) — [—^]r > 0. 


Xi+i = aXi - [^]{aq + r) 

= a{X.-Aq)-\^lr 


M 


M 




= a{X,-[^]q + q)-[^]r + r 
X- 

= a{Xi mod q) — [—-]r + M, 


(7.49) 

(7.50) 

(7.51) 

(7.52) 


(7.53) 

(7.54) 

(7.55) 


X- 

a{Xi mod q) — [—^]r < 0. 


(7.56) 


The generator RANG contains serial correlations. For example 77—dimensional vectors 
(xi,...,xd), (x£)+i, ...,X 2 d),••• which are obtained by successive calls of RANG will lie on 
a small number of parallel {D — 1)—dimensional hyperplanes. Roughly there will be 
such hyperplanes. In particular successive points (xi,Xi+i) when binned into a 
2—dimensional plane for i = 1, ...,N will result in a distribution which fails the test 
for N > 10^ which is much less than the period M — 1. 
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The RANI is devised so that the correlations found in RANG is removed using the 
Bays-Durham algorithm. The Bays-Durham algorithm shuffles the sequence to remove 
low-order serial correlations. In other words it changes the order of the numbers so that 
the sequence is not dependent on order and a given number is not correlated with previous 
numbers. More precisely the jth random number is output not on the jth call but on a 
randomized later call which is on average the j + 32th call on . 

The RAN2 is an improvement over RANI and RANG due to L’Ecuyer. It uses two 
sequences with different periods so as to obtain a new sequence with a larger period 
equal to the least common multiple of the two periods. In this algorithm we add the two 
sequences modulo the modulus M of one of them. In order to avoid overflow we subtract 
rather than add and if the result is negative we add M — 1 so as to wrap around into the 
inetrval [G, M — 1]. L’Ecuyer uses the two sequences 

Ml = 2147483563 , oi = 4GG14 , qi = 53668 , n = 12211. (7.57) 

Ms = 2147483399 , as = 4G692 , gs = 52774 , rs = 3791. (7.58) 

The period is 2.3 x IG^®. Let us also point out that RAN2 uses Bays-Durham algorithm 
in order to implement an additional shuffle. 

We conclude this section by discussing another generator based on the linear congru- 
ential method which is the famous random number generator RAND given by 

RAND = LCG(69G69,1, 2^“^). (7.59) 

The period of this generator is 2^^ and lattice structure is present for higher dimensions 

D>6. 


7.4 Simulation 14: Random Numbers 

Part I We consider a linear congruential pseudo-random number generator given by 

f an+ c\ 

+ \ M J 

We take the values 

a = 899, c = G, M = 32768, n = 12 ’’good” 
a = 57, c = 1, M = 256, ri = IG , ’’bad”. 

The function “remainder” is implemented in Fortran by 

remainder - = mod(a, 6). 

(1) Compute the sequence of the random numbers r* obtained using the above parame¬ 
ters. Plot Vi as a function of i. Construct a scatterplot {xi = r 2 i, yi = r 2 i+i)- 

(2) Compute the average of the random numbers. What do you observe. 
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(3) Let N be the number of generated random numbers. Compute the correlation func¬ 
tions defined by 


^ N-k 

sumi(A;) = ^ ^ ^ XiXi+k- 

2=1 


sumi(A:)— < Xi 

sum2 = -—-5-. 

sumi(Uj— < Xi 

What is the behavior of these functions as a function of k. 

(4) Compute the period of the above generators. 

Part II We take N random numbers in the interval [0,1] which we divide into K bins 
of length 5 = 1/K. Let W be the number of random numbers which fall in the ith bin. 
For a uniform sequence of random numbers the number of random numbers in each bin 
is nideal = N/K. 

(1) Verify this result for the generator “rand” found in the standard Fortran library with 
seed given by seed = 32768. We take K = 10 and N = 1000. Plot W as a function 
of the position Xi of the ith bin. 

(2) The number of degrees of freedom is i' = K — 1. The most probable value of the 
chi-square statistics is k'. Verify this result for a total number of bin tests equal 
L = 1000 and K = 11. Each time calculate the number of times Li in the L = 1000 
bin tests we get a specific value of Plot Lj as a function of x^- What do you 
observe. 


7.5 Simulation 15: Random Walks 

Part I We consider the motion of a random walker in one dimension. The walker can 
move with a step Sj = a to the right with a probability p or with a step s* = — a to the 
left with a probability q = 1 — p. After N steps the position of the walker is xjy = J2i 
We take 

1 

P = 9= 2’ “ = 

In order to simulate the motion of a random walker we need a generator of random 
numbers. In this problem we work with the generator “rand” found in the standard 
Fortran library. We call this generator as follows 

call srand(seed) 
rand() 
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The motion of the random walker is implemented with the code 

if (rand() < p) then 

X TV ~ X TV 

else 

xjv = xn — a 
endif. 

(1) Compute the positions Xi of three different random walkers as functions of the step 
number i. We take i = 1,100. Plot the three trajectories. 

(2) We consider now the motion ol K = 500 random walkers. Compute the averages 

< XN >= , < X% >= ^ 

i=l i=l 

ii) 

In the above equations xV is the position of the ith random walker after N steps. 
Study the behavior of these averages as a function of N. Compare with the theoret¬ 
ical predictions. 

Part II (optional) We consider next a random walker in two dimensions on an infinite 
lattice of points. From any point {i,j) on the lattice the walker can reach one of the 4 
possible nearest neighbor sites (i -|-1, j), (i — 1, j), {i,j + l) and — with probabilities 
Px, Qx, Py and Qy respectively such that Px + Qx + Py + Qy = 1- For simplicity we will 
assume that Px = Qx = Py = Qy = 0.25. 

(1) Compute the averages < fjy > and < > as function of the number of steps N 

for a collection of L = 500 two dimensional random walkers. We consider the values 
N = 10, ...,1000. 



Chapter 8 

Monte Carlo Integration 

8.1 Numerical Integration 

8.1.1 Rectangular Approximation Revisted 

As usual let us start with something simple. The approximation of one-dimensional 
integrals by means of the rectangular approximation. This is a topic we have already 
discussed before. 

Let us then begin by recalling how the rectangular approximation of one dimensional 
integrals works. We consider the integral 


F = / f{x)dx. 


( 8 . 1 ) 


We discretize the x—interval so that we end up with N equal small intervals of lenght Ax, 
viz 


Clearly xq = a and xn 
limit 


Xn = Xq + nAx , Ax = ^ (8-2) 

b. Riemann definition of the integral is given by the following 


7V-1 

F = lim Ax f{xn) , Ax —)■ 0 , N —> oo , b — a = fixed. (8.3) 

n=0 

The first approximation which can be made is to simply drop the limit. We get the 
so-called rectangular approximation given by 


N-l 


Fn = Ax f{Xn). 

n=0 


(8.4) 


The error can be computed as follows. We start with the Taylor expansion 
fix) = fixn) + (x - Xn)/^^^(Xn) -k ^(x - Xn)V^^^(a^n) + ••• 


(8.5) 
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Thus 


/ dx f{x) = f{Xn)^X+ —^\xn){^xf + —^\xn){I^xf + ... (8.6) 

J Xfi 

The error in the interval [xn,Xn+i\ is 

f'Xn-\-\ 1 1 

/ dx f{x) - f{Xn)/^X = —^\xn){^xf + —^\xn){/^xf + ... (8.7) 

J Xn 

This is of order 1/Y^. But we have N subintervals. Thus the total error is of order 1/N. 


8.1.2 Midpoint Approximation of Multidimensional Inte¬ 
grals 

Let us start with the two dimensional integral 

F = [ dx dy f{x,y). (8.8) 

Jr 

R is the domain of integration. In order to give the midpoint approximation of this integral 
we imagine a rectangle of sides Xb — Xa and yb — ya which encloses the region R and we 
divide it into squares of lenght h. The points in the x/y direction are 

Xi = Xa + {i- ^)h , i = l,..., rix. (8.9) 


yi = ya + {i- i^)h , i = 1 ,..., Uy. 
The number of points in the x/y direction are 


Xb - Xa yb- Va 

n. - ^ ,ny- ^ . 

The number of cells is therefore 

{Xb - Xa){yb - Va) 

^ — '^x^y — 7 2 


The integral is then approximated by 


nx i^y 

f{xi,yj)H{xi,yj). 

i=i j=i 


The Heaviside function is defined by 


H{xi,yj) = 1 if {xi,yj) G R otherwise H{xi,yj) = 0. 


The generalization to many dimensions is straightforward. We get 


ni 

F = h^Yl - E f{x^i\-.x^)H{Fi\-,x\^)- 

*1=1 *d=i 


( 8 . 10 ) 

( 8 . 11 ) 

( 8 . 12 ) 

(8.13) 

(8.14) 


(8.15) 
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The meaning of the different symbols is obvious. 

The midpoint approximation is an improvement over the rectangular approximation. 
To see this let us consider a one dimensional integral 

F = [ dx fix). (8.16) 

Jr 

The midpoint approximation reads in this case as follows 

Tlx 

F = h'^fixi)H{xi) = h'^fixi). (8.17) 

i=l i=\ 

Let us say that we have Ux intervals with xq = a and Xi = Xa + (i — 0.5)h, 

i = 1, ...,nx — 1. The term hfixi+i) is associated with the interval [xj,Xi+i]. It is clear 
that we can write this approximation as 

rix-l 

F = h^ /(^^Y-Yd±l) ^ 3 ;. = 3 ™^ (818) 

i=0 


The error in the interval is given by 


fix) dx - = ^f"ixi)iAx)^ + ... 


(8.19) 


The total error is thereore 1/n^ as opposed to the l/ux of the rectangular approximation. 
Let us do this in two dimensions. We write the error as 

rxi+i ryj+l 


fix, y) dx dy - /( ^' )AxAy 


( 8 . 20 ) 


'Vj 


As usual we use Taylor series in the form 


fix,y) = fixi,yj) + fxixi,yj)ix - Xi) + f'yixi,yj)iy - yj) + ^/"(xi,yi)(x - x*)^ 

+ ^fyixi,yj)iy-Vj)'^ + fxyixi,yj)ix - Xi)iy - yj) + ... (8.21) 

We find 

J fix,y) dx dy - ^^^^^)AxAy = ^/''(x*, yj)(Ax)^Ay + 

+ ... 

Since Ax = Ay = h. The individual error is proportional to h^. The total error is 
n/i^ where n = UxUy . Since n is proportional to l/h'^, the total error in dimension 
two is proportional to /i^ or equivalently to 1/n. As we have already seen the same 
method led to an error proportional to l/n? in dimension one. Thus as we increase the 
number of dimensions the error becomes worse. If in one dimension the error behaves 
as I/n“ then in dimension d it will behave as I/n3. In other words classical numerical 
integration methods become impractical at sufficiently higher dimensions (which is the 
case of quantum mechanics and statistical mechanics). 



Xi,yj)AxiAy)^ 

( 8 . 22 ) 
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8.1.3 Spheres and Balls in d Dimensions 

The volume of a ball of radius R in d dimensions is given by 


Vd = 


cf+...+a:2<_R2 


T / 

27r2 


dxi...dX(i 


„d-l 


dr dQd-i 


d r(f) 

The surface of a sphere of radius i? in d dimensions is similarly given by 


(8.23) 


Sd-i = 




dxi-.Axd 


= R 


d-i 


d 

2tt2 

rxj)' 


Here are some properties of the gamma function 

. 1 . 


r(i) = 1 , r(-) = , r(n +1) = nr(n). 


(8.24) 


(8.25) 


In order to compute numerically the volume of the ball in any dimension d we need a 
recursion formula which relates the volume of the ball in d dimensions to the volume of 
the ball in d — 1 dimensions. The derivation goes as follows 


Vd = 


r+R 

J-R 

r+R 

J-R 

Vd-i 


dxd 


dxd 


4+...+xI_,<r^-c 


dxi...dxd-\ 


r'^ dr I dQ.d -2 


r+R 


dxd {R^ - xl) 2 


(8.26) 


J-R 

At each dimension d we are thus required to compute only the remaining integral over 
Xd using, for instance, the midpoint approximation while the volume is determined 
in the previous recursion step. The starting point of the recursion process, for example 
the volume in d = 2, can be determined also using the midpoint approximation. As we 
will see in the lab problems this numerical calculation is very demanding with significant 
errors compared with the Monte Carlo method. 


8.2 Monte Carlo Integration: Simple Sampling 

Let us start with the one dimensional integral 

R = f dx f{x). 

J a 


(8.27) 
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A Monte Carlo method is any procedure which uses (pseudo) random numbers to compute 
or estimate the above integral. In the following we will describe two very simple Monte 
Carlo methods based on simple sampling which give an approximate value for this integral. 
As we progress we will be able to give more sophisticated Monte Carlo methods. First we 
start with the sampling (hit or miss) method then we go on to the sample mean method. 

8.2.1 Sampling (Hit or Miss) Method 

This method consists of the following three main steps; 

• We imagine a rectangle of width b — a and height h such that h is greater than the 
maximum value of f{x), i.e the function is within the boundaries of the rectangle. 

• To estimate the value F of the integral we choose n pairs of uniform random numbers 
{xi,yi) where a < Xi < b and 0 < Ui < h. 

• Then we evaluate the function / at the points Xj. Let nin be the number of random 
points {xi,yi) such that yi < f{xi). The value F of the integral is given by 

71 • 

F = A— , A = h{b-a). (8.28) 

n 

8.2.2 Sample Mean Method 

We start from the mean-value theorem of calculus, viz 

F = / dx /(x) = {b — a) < f > . (8.29) 

J a 

< / > is the average value of the function /(x) in the range a < x < b. The sample mean 
method estimates the average < / > as follows: 

• We choose n random points x* from the interval [a, b] which are distributed uniformly. 

• We compute the values of the function /(x) at these point. 

• We take their average. In other words 

n 

F = (6 -a)-^/(xi). (8.30) 

i=l 

This is formally the same as the rectangular approximation. The only difference is that 
here the points Xi are chosen randomly from the interval [a, b] whereas the points in the 
rectangular approximation are chosen with equal spacing. For lower dimensional integrals 
the rectangular approximation is more accurate whereas for higher dimensional integrals 
the sample mean method becomes more accurate. 

8.2.3 Sample Mean Method in Higher Dimensions 

We start with the two dimensional integral 
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Again we consider a rectangle of sides yi, — ya and xi, — Xa which encloses the region R. 
The Monte carlo sample mean method yields the approximation 


F = A-'^f\xi,yi)H{xi,yi). (8.32) 

i=l 

The points Xi are random and uniformly distributed in the interval whereas the 

points yi are random and uniformly distributed in the interval [ya,yi^- A is the areas of 
the rectangle, i.e A = (xb — Xa){yb — Va)- The Heaviside function is defined by 

H{xi,yi) = 1 if {xi,yi) G R otherwise H{xi,yi) = 0. (8.33) 


Generalization to higher dimensions is obvious. For example in three dimensions we would 
have 


F = / dx dy dz f{x,y,z) 

Jr 


F = f{xi,yi,Zi)H{xi,yi,Zi). 

n 

i=l 


(8.34) 


V is the volume of the parallelepiped which encloses the three dimensional region R. 


8.3 The Central Limit Theorem 

Let p{x) be a probability distribution function. We generate (or measure) n values 
Xi of a certain variable x according to the probability distribution function p{x). The 
average yi =< x* > is given by 


yi =< Xi >= - 


1 ^ 




n 


Xip{Xi 


(8.35) 


i=l 


We repeat this measurement N times thus obtaining N averages yi, y 2 ,---,yN- The mean 
z of the averages yi is 


z = 


N 


N 

E 

i=l 


Vi- 


(8.36) 


The question we want to answer is: what is the probability distribution function of z. 

Clearly the probability of obtaining a particular value z is the product of the probabil¬ 
ities of obtaining the individual averages y* (which are assumed to be independent) with 
the constraint that the average of yi is z. 

Let p{y) be the probability distribution function of the average y and let P{z) be the 
probability distribution of the average z of the averages. We can then write P{z) as 

2/1 + ••• + VN 


P{z) = / dyi... / dyN p{yi)-p{yN)S{z 


N 


(8.37) 
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The delta function expresses the constraint that z is the average of yi. The delta function 
can be written as 


5{z- 


yi + -- + yN. 1 


N 


ZTT J 


(8.38) 


Let fj, be the actual average of yi, i.e. 


F =< yi >= j dyp{y)y. 


(8.39) 


We write 


P{z) = 


^ J J dyi p{yl)eN(^^ j ^2/iV 

-liV 


ZTT ./ 


dy p{y)eN^ 


(8.40) 


But 


dy p{y)eN 




dy p{y) 


\ . 'i'Qf X <f{y^-yf , 


= i-Ld + 

2iV2 ^ 


(8.41) 


We have used 


j dy p{y){p - yf =< y"^ > - < y >^= 


(8.42) 


Hence 


P{z) = 




1 _ N 




27r 


-e 2 <t 




1 e 


(^-m) 


\/^ O'AT 


(8.43) 




(8.44) 


This is the normal distribution. Clearly the result does not depend on the original prob¬ 
ability distribution functions p{x) and p{y). 

The average z of Y random numbers yi corresponding to a probability distribution 
function p{y) is distributed according to the normal probability distribution function with 
average equal to the average value of p{y) and variance equal to the variance of p{y) 
divided by '/N . 
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8.4 Monte Carlo Errors and Standard Deviation 

In any Monte Carlo approximation method the error goes as l/^fN where N is the 
number of samples. This behaviour is independent of the integrand and is independent of 
the number of dimensions. In contrast if the error in a classical numerical approximation 
method goes as 1/N°‘ in one dimension (where N is now the number of intervals) then 
the error in the same approximation method will go as 1/Nd in d dimensions. Thus as 
we increase the number of dimensions the error becomes worse. In other words classi¬ 
cal numerical integration methods become impractical at sufficiently higher dimensions. 
This is the fundamental appeal of Monte Carlo methods in physics (quantum mechanics 
and statistical mechanics) where we usually and so often encounter integrals of infinite 
dimensionality. 

Let us again consider for simplicity the one dimensional integral as an example. We 
take 

F= f dx fix). (8.45) 

J a 

The Monte Carlo sample mean method gives the approximation 

1 ^ 

Fn = (b - a) < f > , < f >= f{xi). (8.46) 

i=l 

The error is by definition given by 


A. = F — Fj\f. 


(8.47) 


However in general we do not know the exact result F. The best we can do is to calculate 
the probability that the approximate result Ttv is within a certain range centered around 
the exact result F. 

The starting point is the central limit theorem. This states that the average z of N 
random numbers i/a corresponding to a probability distribution function p{y) is distributed 
according to the normal probability distribution function. Here the variable y is (we 
assume for simplicity that b — a = 1) 

1 ^ 

y = ( 8 - 48 ) 

^ i=l 

We make M measurements ya of y. We write 

1 ^ 

ya = J^'^fiXi,o/)- (8.49) 

i=l 

The mean z of the averages is given by 



a.=l 


(8.50) 
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According to the central limit theorem the mean z is distributed according to the normal 
probability distribution function with average equal to the average value < y > of ya and 
variance equal to the variance of ya divided by ^/M, viz 


M ( {z-<y>f 

exp —M 


27ral^ 




(8.51) 


The aM is the standard deviation of the mean given by the square root of the variance 

M 


— 

CTm — 


1 


M - 


1 < y >)' 


(8.52) 


a=l 


The use of M — 1 instead of M is known as Bessel’s correction. The reason for this 
correction is the fact that the computation of the mean < y > reduces the number of 
independent data points ya by one. For very large M we can replace o^m with cjm defined 
by 


1 


M 


~ ^ Yj^y<^~ <y >f =<y^ > - <y >^ ■ 


(8.53) 


<y.=l 


The standard deviation of the sample (one single measurement with N data points) is 
given by the square root of the variance 


Cr2 = 


1 


N 


N - 


< f >f 


(8.54) 


2 = 1 


Again since N is large we can replace a with a defined by 

N 


a^ = 


l ^(/( x ,)-</>)2 =</ 2 >_</> 2 . 


(8.55) 


2=1 


TV TV 

<f>=NYl ’ < /" >= Y 


2 = 1 


N 


2=1 


(8.56) 


The standard deviation of the mean aM ~ o'TW is given in terms of the standard deviation 
of the sample d ~ u by the equation 


a 


O'M = 


y/N' 


(8.57) 


The proof goes as follows. We generalize equations (6.80) and (8.56) to the case of M 


measurements each with N samples. The total number of samples is MN. We have 

M TV 


a 2 = 


^ </>)'=</'>-</ >^ 


NM 


a=l 2=1 


(8.58) 
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M N 


M N 


< / >= ]^ E E ’</'>= E E 


Q:=l 2=1 


NM 


(8.59) 


Q:=l 2=1 


The standard deviation of the mean gm ~ is given by 

1 ^ 


Q:=l 

M 




M ^ \N 

a=l ^ i=l 
, M N N 


N‘^M 


a=l 2=1 j=l 


E E E ( ( /(®h«)- < / > • (8-60) 


In above we have used the fact that < y >=< f >. For every set a the sum over i and 
j splits into two pieces. The first is the sum over the diagonal elements with i = j and 
the second is the sum over the off diagonal elements with i ^ j. Clearly f{xi^a)— < f > 
and f{xj^a)— < f > are on the average equally positive and negative and hence for large 
numbers M and N the off diagonal terms will cancel and we end up with 


M N 


2 


N‘^M 


a=li=l 


EE (/(*ha)- < / > 


'n' 


(8.61) 


The standard deviation of the mean aM can therefore be interpreted as the probable error 
in the original N measurements since if we make M sets of measurements each with N 
samples the standard deviation of the mean cjm will estimate how much an average over 
N measurements will deviate from the exact mean. 

This means in particular that the original measurement Tv of the integral F has a 
68 per cent chance of being within one standard deviation aM of the true mean and a 95 
per cent chance of being within 2aM and a 99.7 per cent chance of being within 3 cjm- In 
general the proportion of data values within kcjm standard deviations of the true mean is 
defined by the error function 


j^<y>+|^(TM 

l<y>-KaM 


2nal^ 


: exp 


{z- < y 


dz = /''^exp(—x^) dx = erf(-^). 

V^Jo ^ ^ V2 


(8.62) 


8.5 Nonuniform Probability Distributions 

8.5.1 The Inverse Transform Method 

We consider two discrete events 1 and 2 which occur with probabilities pi and p 2 
respectively such that pi + p 2 = 1. The question is how can we choose the two events 
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with the correct probabilities using only a uniform probability distribution. The answer 


is as follows. Let r be a uniform random number between 0 and 1. We choose the event 


1 if r < Pi else we choose the event 2. 

Let us now consider three discrete events 1, 2 and 3 with probabilities pi, p 2 and pa 
respectively such that pi + p 2 + ps = 1. Again we choose a random number r between 0 
and 1. If r < Pi then we choose event 1, if pi < r < pi + p 2 we choose event 2 else we 
choose event 3. 

We consider now n discrete events with probabilities pi such that Y17=iPi — Again 
we choose a random number r between 0 and 1. We choose the event i if the random 
number r satisfies the inequality 


2—1 



(8.63) 


In the continuum limit we replace the probability pi with p{x)dx which is the probability 


that the event x is found between x and x + dx. The condition J27=iPi — ^ becomes 



(8.64) 


The inequality (8.63) becomes the identity 


X 



p{x ) dx = r 


(8.65) 


— OO 


Thus r is equal to the cumulative probability distribution P{x), i.e the probability of 
choosing a value less than or equal to x. This equation leads to the inverse transform 
method which allows us to generate a nonuniform probability distribution p{x) from a 
uniform probability distribution r. Clearly we must be able to 1) perform the integral 
analytically to find P{x) then 2) invert the relation P{x) = r for x. 

As a first example we consider the Poisson distribution 



( 8 . 66 ) 


We find 



(8.67) 


Hence 


A ln(l — r). 


( 8 . 68 ) 


X = — 


Thus given the uniform random numbers r we can compute directly using the above 


formula the random numbers x which are distributed according to the Poisson distribution 



The next example is the Gaussian distribution in two dimensions 



(8.69) 
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We can immediately compute that 
1 

2707^ 

x = rcos(j), y = rsm4>. (8-71) 

= — 2(T^lnu , (j) = 2 ttw. (8.72) 

The random numbers v and w are clearly uniformly distributed between 0 and 1. The 
random numbers x (or y) are distributed according to the Gaussian distribution in one 
dimension. This method is known as the Box-Muller method. 


r‘+00 


f+OO 


f.1 


fl 


dx 


dy 


= / dw / dv. 


(8.70) 


/o 


10 


8.5.2 The Acceptance-Rejection Method 

This was proposed by Von Neumann. The goal is to generate a sequence of random 
numbers distributed according to some normalized probability density y = p{x). This 
method consists of the following steps; 

• We start by generating a uniform random number Xx in the range of interest Xmin < 
rx < a^max where [xmin, X ma x] is the interval in which y = p{x) does not vanish. 

• We evaluate p{rx)- 

• Then we generate another uniform random number Xy in the range [0, ^max] where 
ymax is the maximum value of the distribution y = p{x). 

• li Xy < p{xx) then we accept the random number Xx else we reject it. 

• We repeat this process a sufficient number of times. 

It is not difficult to convince ourselves that the accepted random numbers Xx will be 
distributed according to y = p{x). 


8.6 Simulation 16: Midpoint and Monte Carlo 
Approximations 

Part I The volume of a ball of radius R 'm. d dimensions is given by 

Vd= dxi...dxd 

J xl+...+xl<R2 

= ‘^ j dxi...dxd-i^-Xi- ... - x‘l_^ 

R<^ 27r5 

(1) Write a program that computes the three dimensional integral using the midpoint 
approximation. We take the stepsize h = 2R/N, the radius R = 1 and the number 
of steps in each direction to be V = Nx = Ny = 2^ where p = 1,15. 
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(2) Show that the error goes as 1/N. Plot the logarithm of the absolute value of the 
absolute error versus the logarithm of N. 

(3) Try out the two dimensional integral. Work in the positive quadrant and again take 
the stepsize h = R/N where R = 1 and iV = 2^, p = 1,15. We know that generically 
the theoretical error goes at least as l/N"^. What do you actually find? Why do you 
find a discrepancy? 

Hint; the second derivative of the integrand is singular aX x = R which changes the 
dependence from l/N"^ to 1/N^'^. 

Part II In order to compute numerically the volume of the ball in any dimension d we 
use the recursion formula 


Vd = ^ dxd{R^-xl)^. 

(1) Find the volumes in d = 4,5,6,7,8,9,10,11 dimensions. Compare with the exact 
result given above. 

Part III 

(1) Use the Monte Carlo sampling (hit or miss) method to find the integrals in d = 2, 3,4 
and d = 10 dimensions. Is the Monte Carlo method easier to apply than the midpoint 
approximation? 

(2) Use the Monte Carlo sample mean value method to find the integrals in d = 2, 3,4 
and d = 10 dimensions. For every d we perform M measurements each with N 
samples. We consider M = 1,10,100,150 and N = 2^, p = 10,19. Verify that the 
exact error in this case goes like 1 / ^/N. 

Hint; Compare the exact error which is known in this case with the standard de¬ 
viation of the mean aM and with aj^/N where a is the standard deviation of the 
sample, i.e. of a single measurement. These three quantities must be identical. 


Part IV 

(1) The value of tt can be given by the integral 


TT = 


dx dy. 


Use the Monte Carlo sampling (hit or miss) method to give an approximate value of 


TT. 


(2) The above integral can also be put in the form 


f-ri 


TT = 2 y dx \/\ — x^. 


Use the Monte Carlo sample mean value method to give another approximate value 
of TT. 
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8.7 Simulation 17: Nonuniform Probability Dis¬ 
tributions 


Part I The Gaussian distribution is given by 


P{x) 


1 {x — 

, exp--- 

2cj 


The parameter \x is the mean and a is the variance, i.e the square root of the standard 
deviation. We choose fi = 0 and a = 1. 


(1) Write a program that computes a sequence of random numbers x distributed ac¬ 
cording to P{x) using the inverse transform method (Box-Muller algorithm) given 
by the equations 


X = r cos (f). 


= —2(T^ Inu , (f) = 2 'kw. 

The V and w are uniform random numbers in the interval [0,1]. 

(2) Draw a histogram of the random numbers obtained in the previous question. The 
steps are as follows: 

a- Determine the range of the points x. 

b- We divide the interval into u bins. The lenght of each bin is h = interval/n. We 
take for example u = 100. 

c- We determine the location of every point x among the bins. We increase the 
counter of the corresponding bin by a unit. 

d- We plot the fraction of points as a function of x. The fraction of point is equal 
to the number of random numbers in a given bin divided by hN where N is the 
total number of random numbers. We take N = 10000. 

(3) Draw the data on a logarithmic scale, i.e plot log(fraction) versus Find the fit 
and compare with theory. 


Part II 


(1) Apply the acceptance-rejection method to the above problem. 

(2) Apply the Fernandez-Criado algorithm to the above problem. The procedure is as 
follows 

a- Start with N points Xi such that Xi = a. 

b- Choose at random a pair (xi,Xj) from the sequence and make the following 
change 


Xi 


Xi -t- Xj 

~vr 

-Xi + V2xj. 
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c- Repeat step 2 until we reach equilibrium. For example try it M times where 
M = 10,100,.... 



Chapter 9 

The Metropolis Algorithm and 
The Ising Model 


9.1 The Canonical Ensemble 


We consider physical systems which are in thermal contact with an environment. The 
environment is usually much larger than the physical system of interest and as a conse¬ 
quence energy exchange between the two of them will not change the temperature of the 
environement. The environement is called heat bath or heat reservoir. When the system 
reaches equilibrium with the heat bath its temperature will be given by the temperature 
of the heat bath. 

A system in equilibrium with a heat bath is described statistically by the canonical 
ensemble in which the temperature is fixed. In contrast an isolated system is described 
statistically by the microcanonical ensemble in which the energy is fixed. Most systems 
in nature are not isolated but are in thermal contact with the environment. It is a 
fundamental result of statistical mechanics that the probability of finding a system in 
equilibrium with a heat bath at temperature T in a microstate s with energy Eg is given 
by the Boltzmann distribution 

(9. 

The normalization connstant Z is the partition function. It is defined by 


P = 3 = ^ 

" Z ’ ^ ksT' 


Z = (9.2) 

The sum is over all the microstates of the system with a fixed N and V. The Helmholtz 
free energy T of a system is given by 


F =-ksT In Z. 


(9.3) 


In equilibrium the free energy is minimum. All other thermodynamical quantities can be 
given by various derivatives of F. For example the internal energy U of the system which 
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is the expectation value of the energy can be expressed in terms of F as follows 

U=<E>=Y^ E.P. = W E.e-f^- = In Z = Fmf). (9.4) 


The specific heat is given by 


C = —U 


(9.5) 


In the definition of the partition function (9.2) we have implicitly assumed that we are 


dealing with a physical system with conhgurations (microstates) which have discrete ener¬ 
gies. This is certainly true for many quantum systems. However for many other systems 
especially classical ones the energies are not discrete. For example the partition function 
of a gas of N distinguishable classical particles is given by 


Z= (9.6) 

1=1 

For quantum dynamical field systems (in Euclidean spacetimes) which are of fundamental 
importance to elementary particles and their interactions the partition function is given by 
the so-called path integral which is essentially of the same form as the previous equation 
with the replacement of the Hamiltonian H{pi,qi) by the action where ‘h stands for 
the field variables and the replacement of the measnre Qi )/by the relevant 

(inhnite dimensional) measure on the space of field configurations. We obtain therefore 

Z = j (9.7) 

Similarly to what happens in statistical mechanics where all observables can be derived 
from the partition function the observables of a quantum field theory can all be derived 
from the path integral. The fundamental problem therefore is how to calculate the par¬ 
tition function or the path integral for a given physical system. Normally an analytic 
solution will be ideal. However finding such a solution is seldom possible and as a conse¬ 
quence only the numerical approach remains available to us. The partition function and 
the path integral are essentially given by multidimensional integrals and thus one should 
seek numerical approaches to the problem of integration. 


9.2 Importance Sampling 

In any Monte Carlo integration the numerical error is proportional to the standard 
deviation of the integrand and is inversely proportional to the number of samples. Thus 
in order to reduce the error we should either reduce the variance or increase the number 
of samples. The first option is preferable since it does not require any extra computer 
time. Importance sampling allows us to reduce the standard deviation of the integrand 
and hence the error by sampling more often the important regions of the integral where 
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the integrand is largest. Importance sampling uses also in a crucial way nonuniform 
probability distributions. 

Let us again consider the one dimensional integral 

F = [ dx fix). (9.8) 

J a 

We introduce the probability distribution p{x) such that 

rb 

1 = / dx p{x). 

J a 

We write the integral as 

We evaluate this integral by sampling according to the probability distribution p(x). In 
other words we find a set of N random numbers Xi which are distributed according to 
p{x) and then approximate the integral by the sum 


(9.9) 


(9.10) 


Fn = 


fjxj) 

N ^ p{xi) ■ 


(9.11) 


The probability distribution p(x) is chosen such that the function fix)/pix) is slowly 
varying which reduces the corresponding standard deviation. 


9.3 The Ising Model 

We consider a d—dimensional periodic lattice with n points in every direction so that 
there are N = points in total in this lattice. In every point (lattice site) we put a spin 
variable Si {i = 1 ,...,Y) which can take either the value +1 or — 1 . A configuration of 
this system of N spins is therefore specified by a set of numbers {si}. In the Ising model 
the energy of this system of N spins in the configuration {sj} is given by 

N 

Ei{si} = - eijSiSj - H'^Si. (9-12) 

<ij> i=l 

The parameter H is the external magnetic field. The symbol < ij > stands for nearest 
neighbor spins. The sum over < ij > extends over 'jN/2 terms where 7 is the number of 
nearest neighbors. In 2, 3,4 dimensions 7 = 4, 6 , 8 . The parameter eij is the interaction 
energy between the spins i and j. For isotropic interactions eij = e. For e > 0 we obtain 
ferromagnetism while for e < 0 we obtain antiferromagnetism. We consider only e > 0. 
The energy becomes with these simplihcations given by 

N 

Ei{si} = -e X] SiSj - 

<ij> i=l 


(9.13) 
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The partition function is given by 

(9.14) 

■51 52 5]V 

There are 2^ terms in the sum and j3 = I/UbT. 

In d = 2 we have N = n? spins in the square lattice. The configuration {s*} can 

be viewed as an n x n matrix. We impose periodic boundary condition as follows. We 

consider (n + 1) x (n + 1) matrix where the (n + l)th row is identified with the first row 

and the (n + l)th column is identified with the first column. The square lattice is therefore 
a torus. 


9.4 The Metropolis Algorithm 


The internal energy U =< E > can be put into the form 

<E>= ^^ \ . (9.15) 

Generally given any physical quantity A its expectation value < A > can be computed 
using a similar expression, viz 

V A 

£e-^^s • ( 9 - 16 ) 

The number Ag is the value of A in the microstate s. In general the number of microstates 
N is very large. In any Monte Carlo simulation we can only generate a very small number 
n of the total number N of the microstates. In other words < E > and < A > will be 
approximated with 


<E>C:^<E >n= 


E:=i Ese-^^^ 


(9.17) 


< A > ~ < ^ >n = 


E;.i 


(9.18) 


The calculation of < F >„ and < A >n proceeds therefore by 1) choosing at random 
a microstate s, 2) computing Eg, Ag and then 3) evaluating the contribution of 

this microstate to the expectation values < E >„ and < A >„. This general Monte 
Carlo procedure is however highly inefficient since the microstate s is very improbable 
and therefore its contribution to the expectation values is negligible. We need to use 
importance sampling. To this end we introduce a probability distribution pg and rewrite 
the expectation value < > as 


<A> 


(9.19) 
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Now we generate the microstates s with probabilities ps and approximate < A > with 
< A >n given by 


< A >n= 


E n 
5=1 


■^s p—(3Es 
Ps 


Z^S=l Ps ^ 


(9.20) 


This is importantce sampling. The Metropolis algorithm is importance sampling with ps 
given by the Boltzmann distribution, i.e. 

~ ^ q-PEs ■ ( 9 - 21 ) 

We get then the arithmetic average 

1 ” 

<A>„=-Vyl*. (9.22) 

n ^ 


The Metropolis algorithm in the case of spin systems such as the Ising model can be 
summarized as follows; 


(1) Choose an initial microstate. 

(2) Choose a spin at random and flip it. 

(3) Compute /S.E = Fitriai ~ E^id- This is the change in the energy of the system due to 
the trial flip. 

(4) Check if AE < 0. In this case the trial microstate is accepted. 

(5) Check if AE > 0. In this case compute the ratio of probabilities w = e 

(6) Choose a uniform random number r in the inetrval [0,1]. 

(7) Verify if r < rc. In this case the trial microstate is accepted, otherwise it is rejected. 

(8) Repeat steps 2) through 7) until all spins of the system are tested. This sweep counts 

as one unit of Monte Carlo time. 

(9) Repeat setps 2) through 8) a sufficient number of times until thermalization, i.e. 
equilibrium is reached. 

(10) Compute the physical quantities of interest in n thermalized microstates. This can 
be done periodically in order to reduce correlation between the data points. 

(11) Compute averages. 

The proof that this algorithm leads indeed to a sequence of states which are distributed 
according to the Boltzmann distribution goes as follows. 

It is clear that the steps 2) through 7) corresponds to a transition probability between 
the microstates {sj} and {sj} given by 

W{i j) = min(l, , AE = Ej - Ei. (9.23) 

Since only the ratio of probabilities w = is needed it is not necessary to normalize 

the Boltzmann probability distribution. It is clear that this probability function satisfies 
the detailed balance condition 
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W{i j) = W{j i) (9.24) 

Any other probability function W which satisfies this condition will generate a sequence of 
states which are distributed according to the Boltzmann distribution. This can be shown 
by summing over the index j in the above equation and using ^ j) = 1- We 

get 

^ ^g_25) 

j 

The Boltzmann distribution is an eigenvector of W. In other words W leaves the equilib¬ 
rium ensemble in equilibrium. As it turns out this equation is also a sufficient condition 
for any ensemble to approach equilibrium. 

9.5 The Heat-Bath Algorithm 

The heat-bath algorithm is generally a less efficient algorithm than the Metropolis 
algorithm. The acceptance probability is given by 

Wii —^ j) = min(l, ^ ) , AF = Ej - Ei. (9.26) 

This acceptance probability satisfies also detailed balance for the Boltzmann probability 
distribution. In other words the detailed balance condition which is sufficient but not 
necessary for an ensemble to reach equilibrium does not have a unique solution. 

9.6 The Mean Field Approximation 

9.6.1 Phase Diagram and Critical Temperature 

We consider N = !?• spins on a square lattice where L is the number of lattice sites in 
each direction. Each spin can take only two possible values s* = -|-1 (spin up) and Si = —1 
(spin down). Each spin interacts only with its 4 neighbors and also with a magnetic field 
H. The Ising model in 2 dimensions is given by the energy 

E{s} = -JY1 (9.27) 

<ij> i 

The system is assumed to be in equilibrium with a heat bath with temperature T. Thermal 
equilibrium of the Ising model is described by the canonical ensemble. The probability of 
finding the Ising model in a configuration {si,..., S 2 n} is given by Boltzmann distribution 

Pis} = —. 


( 9 . 28 ) 
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The partition function is given by 


{s} Si 


(9.29) 


The magnetization M in a configuration {si,..., S 2 ^} is the order parameter of the system. 
It is defined by 


M = Y,Si. 


The average of M is given by 

< M >= y^ < Sj >= N < s > . 
i 

In above < Si >=< s > since all spins are equivalent. We have 

IdlogZ dF 


<M>= 


dH' 


(9.30) 


(9.31) 


(9.32) 


/? dH 

In order to compute < M > we need to compute Z. In this section we use the mean field 
approximation. First we rewrite the energy E{s} in the form 


^{4 = {-jY^s,)s,-hY^ 

<ij> i 

i i 

The effective magnetic field 11*^ is given by 

^eff = -'^E'®iW- 

id) 


Si 


(9.33) 


(9.34) 


The index j{i) runs over the four nearest neighbors of the spin i. In the mean field 
approximation we replace the spins by their thermal average < s >. We obtain 


^eff = -Jl < s > , 7 = 4. 


In other words 


= -(^^ +dy < s >)E^* = ^effE' 

i i 

The partition function becomes 

/ \N 

Z = ( E 


(9.35) 


(9.36) 


51 


X iV 

g-/3Heff _j_ g/3i^ett j 

(9.37) 

X iV 

2 cosh dUeff 

(9.38) 
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The free energy and magnetization are then given by 


F = -kT\nZ = -kTN In 2 cosh 


(9.39) 


< M >= N < s >= Ytanh/JHeff- 


(9.40) 


Thus for zero magnetic field we get from the second equation the constraint 


< s >= tanhy/lJ < s > . 


(9.41) 


Clearly < s >= 0 is always a solution. This is the high temperature paramagnetic phase. 
For small temperature we have also a solution < s > 7 ^ 0. This is the ferromagnetic phase. 
There must exist a critical temperature Tc which separates the two phases. We expect 
< s > to approach < s >= 0 as T goes to Tc from below. In other words near Tc we can 
treat < s > as small and as a consequence we can use the expansion tanhx = x — 

We obtain 


Equivalently 


< s >= '^j3J < s > < s 

o 


< s> ( < J - T)^ = 0 . 


(9.42) 


(9.43) 


We get the two solutions 


< s >= 0 , paramagnetic phase 


< s >= ±4 


13 1 


(Tc — T)^ , ferromagnetic phase. 


(9.44) 


The critical temperature Tc and the critical exponent (3 are given by 

" fes ’ ^ 2' 

The ferromagnetic solution can only exist for T < Tc. 


(9.45) 


9.6.2 Critical Exponents 

The free energy for zero magnetic held is 


F = —/cTYln ( 2coshy/lJ < s > . 


(9.46) 


We see that for T < Tc the ferromagnetic solution has a lower free energy than the 
paramagnetic solution < s >= 0. The phase T < Tc is indeed ferromagnetic. The 
transition at T = Tc is second order. The free energy is continuous at T = Tc, i.e. there is 
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no latent heat while the specific heat is logarithmically divergent. The mean field theory 
yields the correct value 0 for the critical exponent a although it does not reproduce the 
logarithmic divergence. The susceptibility diverges at T = Tc with critical exponent 7 = 1 . 
These latter statements can be seen as follows. 

The specific heat is given by 



^ ^2 

= -2kBT—{l3F)-kBT^^{(3F). (9.47) 

Next we use the expression f3F = —iVln(e^ + e~^) where x = ■ylSJ < s >. We find 

^ = 2kBTtanhx^ + kBT‘^tanh^x^^ + kBT‘^ — 

Jy 01 ol^ cosh X 01 

We compute 


1 3kB 


dx 


1 3kB 


,_ _, A lAy J- 

)2 , ^ 


{Tc-T)-2 , 


d‘^x 


dT2 ^4^ 


. 1 / 3A:b 


7 J 


(Tc-T)"T 


(9.49) 


It is not difficult to show that the divergent terms cancel and as a consequence 

^ ~ (T, - r)-“ , a = 0 . (9.50) 

The susceptibility is given by 

X=^<M>. (9.51) 

To compute the behavior of x near T = Tc we consider the equation 

< s >= tanh(7/3T < s > +/3i7). (9.52) 

For small magnetic field we can still assume that 7/3<l < s > +/3H is small near T = Tc 
and as a consequence we can expand the above equation as 

< s >= {jPJ < s > +f3H) — -{'jPJ < s > +/3H)^. (9.53) 

o 

Taking the derivative with respect to H of both sides of this equation we obtain 


X = {iNic + /?) - ( 7 /^dx + / 3 )( 7 / 5 d < s > +l3Hf. (9.54) 


d 


Setting the magnetic field to zero we get 


(9.55) 


X = ilPJx + 13)- {ll3Jx + P){ll3J < s >)^ 


(9.56) 
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In other words 

1 -7/3<7 + 7dd(7/5d < s >f^x = P - PilliJ < s >f. (9.57) 

;^(l-(7/?d<s>)2). (9.58) 

Hence 

X = ^{Tc-T)-^ ,7 = 1- (9.59) 

2kB 

9.7 Simulation of The Ising Model and Numerical 
Results 

9.7.1 The Fortran Code 

We choose to write our code in Fortran. The reason is simplicity and straightfor¬ 
wardness. A person who is not well versed in programming languages, who has a strong 
background in physics and maths, and who wants to get up and running quickly with the 
coding so that she starts doing physics (almost) immediately the choice of Fortran for her 
is ideal and thus it is only natural. The potential superior features which may be found 
in C are peripheral to our purposes here. 

The spin found in the intersection point of the ith row and jth column of the lattice 
will be represented with the matrix element (p{i,j). The energy will then read (with 
N = B? and n = L) 

n 

* 7=1 

(9.60) 

We impose periodic boundary condition in order to reduce edge and boundary effects. 
This can be done as follows. We consider (n -|- 1) x {n + 1) matrix where the (n + l)th 
row is identified with the first row and the (n + l)th column is identified with the first 
column. The square lattice is therefore a torus. The toroidal boundary condition will 
read explicitly as follows 

</>(0, j) = 4>{n,j) , (l){n + l,j) = , 0(^,0) = (l){i,n) , (/){{,n + 1) = ^(i,!). 

The variation of the energy due to the flipping of the spin (p{i,j) is an essential ingredient 
in the Metropolis algorithm. This variation is explicitly given by 


<?^'(^+ l,i) + </>(*-l,j) + <('(bJ + l)+ </>(*,i-1) ) +H(p{i,j) 


AE = 2J(t){i,j){(t){i + 1, j) -h (t){i - l,j) + + 1) + - 1)) + 2i7(/>(i, j). (9.61) 

The Fortran code contains the following pieces: 
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• A subroutine which generates pseudo random numbers. We prefer to work with well 
established suboutines such as the RAN 2 or the RANLUX. 

• A subroutine which implements the Metropolis algorithm for the Ising model. This 
main part will read (with some change of notation such as J = exch) 

do i=l,L 

ip(i)=i+l 

ini(i)=i-l 

enddo 

ip(L)=l 

ini(l)=L 


do i=l,L 

do j=l)L 

deltaE=2.0d0*exch*phi(i,j)*(phi(ip(i),j)+phi(im(i),j)+phi(i,ip(j))+phi(i,ini(j))) 
deltaE=deltaE + 2.0d0*H*phi(i,j) 
if (deltaE.ge.0.0d0)then 

probability=dexp(-beta*deltaE) 
call ranlux(rvec,len) 
r=rvec(l) 

if (r.le.probability)then 
phi(i,j)=-phi(i,j) 
endif 
else 

phi(i,j)=-phi(i,j) 

endif 

enddo 

enddo 

• We compute the energy < E > and the magnetization < M > of the Ising model in 
a separate subroutine. 

• We compute the errors using for example the Jackknife method in a separate sub¬ 
routine. 

• We fix the parameters of the model such as L, J, [3 = 1/T and H. 

• We choose an initial configuration. We consider both cold and hot starts which are 
given respectively by 


</>(bj) = +l- (9.62) 

4>{i,j) = random signs. (9.63) 

• We run the Metropolis algorithm for a given thermalization time and study the 
history of the energy and the magnetization for different values of the temperature. 
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• We add a Monte Carlo evolution with a reasonably large number of steps and com¬ 
pute the averages of E and M. 

• We compute the specific heat and the susceptibility of the system. 


9.7.2 Some Numerical Results 

Energy: The energy is continuous through the transition point and as a consequence 
there is no latent heat. This indicates a second order behavior. 


Specific Heat: The critical exponent associated with the specific heat is given by 
a = 0. However the specific heat diverges logarithmically at T = Tc- This translates into 
the fact that the peak grows with n logarithmically, namely 

(7 

^~logn. (9.64) 


Magnetization: The magnetization near but below the critical temperature in the 
two-dimensional Ising model scales as 


<M> 




(T, - T)-^ , d = 1/8. 


(9.65) 


Susceptibility: The susceptibility near the critical temperature in the two-dimensional 
Ising model scales as 

~ IT - , 7 = 7/4. (9.66) 


Critical Temperature: From the behavior of the above observable we can measure 
the critical temperature, which marks the point where the second order ferromagnetic 
phase transition occurs, to be given approximately by 


ksTc 


2J 

ln(\/2 + l)' 


(9.67) 


Critical Exponents and 2— Point Correlation Function: The 2—point corre¬ 
lation function of the two-dimensional Ising model is defined by the expression 

f{x) = < SqSx > 

(9.68) 


We can verify numerically the following statements: 
• At T = Tc the behaviour of f{x) is given by 
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• At T less than Tc the behavior of f{x) is given by 

f{x) =< M >2 . (9.70) 

• At T larger than Tc the behaviour of f{x) is given by 

/(x)~a4;e“«. (9.71) 

x^ 

• Near Tc the correlation lenght diverges as 

C c. ^ = 1- (9.72) 

Note that near-neighbor lattice sites which are a distance x away in a given direction 
from a given index i are given by 


do x=l,nn 

if (i+x .le. n) then 
ipn(i,x)=i+x 
else 

ipn(i,x)=(i+x)-n 
endif 

if ((i-x) . ge. Dthen 
imn(i,x)=i-x 
else 

imn(i,x)=i-x+n 
endif 
enddo 

For simplicity we consider only odd lattices, viz n = 2nn + 1. Clearly because of the 
toroidal boundary conditions the possible values of the distance x are x = 1, 2,..., nn. 

First Order Transition and Hysteresis: We can also consider the effect of a 
magnetic field H on the physics of the Ising model. We observe a first order phase 
transition at H = 0 or H near 0 and a phenomena of hysteresis. We observe the following: 

• For T < Tc we can observe a first order phase transition. Indeed we observe a 
discontinuity in the energy and the magnetization which happens at a non-zero 
value of H due to hysteresis. The jumps in the energy and the magnetization are 
typical signal for a first order phase transition. 

• For T > Tc the magnetization becomes a smooth function of H near H = 0 which 
means that above Tc there is no distinction between the ferromagnetic states with 
M > 0 and M < 0. 

• We recompute the magnetization as a function of H for a range of H back and 
fourth. We observe the following: 
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— A hysteresis loop. 

— The hysteresis window shrinks with increasing temperature or accumulating 
more Monte Carlo time. 

— The hysteresis effect is independent of the size of the lattice. 

The phenomena of hysteresis indicates that the behaviour of the system depends on 
its initial state and history. Equivalently we say that the system is trapped in a 
metastable state. 

9.8 Simulation 18 : The Metropolis Algorithm and 
The Ising Model 

Part I We consider N = L'^ spins on a square lattice where L is the number of lattice 
sites in each direction. Each spin can take only two possible values Sj = +1 (spin up) 
and Sj = — 1 (spin down). Each spin interacts only with its 4 neighbors and also with a 
magnetic field H. The Ising model in 2 dimensions is given by the energy 

E = —J Si-Sj — H Si- 

<ij> i 

We will impose toroidal boundary condition. The system is assumed to be in equilibrium 
with a heat bath with temperature T. Thermal fluctuations of the system will be simulated 
using the Metropolis algorithm. 

(1) Write a subroutine that computes the energy E and the magnetization M of the 
Ising model in a configuration (j). The magnetization is the order parameter of the 
system. It is defined by 

M = '^Si. (9.73) 

i 

(2) Write a subroutine that implements the Metropolis algorithm for this system. You 
will need for this the variation of the energy due to flipping the spin 

(3) We choose L = 10, H = 0, J = 1, (3 = 1/T. We consider both a cold start and a 
hot start. 

Run the Metropolis algorithm for a thermalization time TTH = 2® and study the 
history of the energy and the magnetization for different values of the temperature. 
The energy and magnetization should approach the values E = 0 and M = 0 when 
T —;■ oo and the values E = —2JN and M = +1 when T —;■ 0. 

(4) Add a Monte Carlo evolution with TTM = 2^^ and compute the averages of E and 

M. 

(5) Compute the specific heat and the susceptibility of the system. These are defined 
by 

C, = -^ < E >= ^{< E^ > - < E >^) , x = ^ < M >= I3{< > - < M 
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( 6 ) Determine the critical point. Compare with the theoretical exact result 

, ^ 2J 

ksTc =- 1= -. 

ln (^/2 + l) 

Part II Add to the code a separate subroutine which implements the Jackknife method 
for any set of data points. Compute the errors in the energy, magnetization, specific heat 
and susceptibility of the Ising model using the Jackknife method. 


9.9 Simulation 19 : The Ferromagnetic Second Or¬ 
der Phase Transition 

Part I The critical exponent associated with the specific heat is given by a = 0, viz 

^ ~ (T, - r)-“ , a = 0 . 

However the specihc heat diverges logarithmically at T = Tc- This translates into the fact 
that the peak grows with L logarithmically, namely 

~ log L. 

Verify this behaviour numerically. To this end we take lattices between L = 10 — 30 with 
TTH = TMC = 2^^. The temperature is taken in the range 

T = Tc — 10“^ X step , step = —50, 50. 

Plot the maximum of versus InL. 


Part II 

scales as 


The magnetization near but below the critical temperature in 2D Ising model 


< M > 
L2 


~ {Tc - T)-f^ 




1 

8 ' 


We propose to study the magnetization near Tc in order to determine the value of /3 
numerically. Towards this end we plot | < M > | versus Tc — T where T is taken in the 
the range 


T = Tc — 10 ^ X step , step = 0, 5000. 
We take large lattices say T = 30 — 50 with TTH = TMC = 2^^. 


Part III The susceptibility near the critical temperature in 2 D Ising model scales as 

Determine 7 numerically. Use TTH = 2^^^, TMC = 2^^, L = 50 with the two ranges 
T = Tc — 5 X 10“"^ X step , step = 0,100. 


T = Tc — 0.05 — 4.5 X 10 ^step , step = 0,100. 
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9.10 Simulation 20: The 2—Point Correlator 

In this exercise we will continue our study of the ferromagnetic second order phase 
transition. In particular we will calculate the 2—point correlator defined by the expression 

/(n) =< soSn >=< ■^^(j){i,j)(<f){i + n,j) + <f){i-n,j) + <f){i,j + n) + <f){i,j-n)j > 

(1) Verify that at T = Tc the behaviour of /(n) is given by 

/(n):^- , 11 = -. 

(2) Verify that at T less than Tc the behaviour of /(n) is given by 

/(n) =< M . 

(3) Verify that at T larger than Tc the behaviour of f{n) is given by 

1 _ H 

/(n) —e T 
if! 

In all the above questions we take odd lattices say L = 2LL + 1 with LL = 20 — 50. 
We also consider the parameters TTH = 2^°, TTC = 2^^. 

(4) Near Tc the correlation lenght diverges as 


1 


IT-Ter 


, u = l. 


In the above question we take LL = 20. We also consider the parameters TTH = 2^®, 
TTC = 2^^ and the temperatures 

T = Tc + 0.1 X step , step = 0,10. 


9.11 Simulation 21 : Hysteresis and The First Or¬ 
der Phase Transition 

In this exercise we consider the effect of the magnetic field on the physics of the Ising 
model. We will observe a first order phase transition at H = 0 or near 0 and a 
phenomena of hysteresis . 

(1) We will compute the magnetization and the energy as functions of H for a range of 
temperatures T. The initialization will be done once for all H. The thermalization 
will be performed once for the first value of the magnetic field H say H = —5. After 
we compute the magnetization for H = —5, we start slowly (adiabatically) changing 
the magnetic field with small steps so we do not loose the thermalization of the Ising 
system of spins. We try out the range H = —5,5 with step equal 0.25. 
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a- For T < Tc say T = 0.5 and 1.5 determine the first order transition point from 
the discontinuity in the energy and the magnetization. The transition should 
happen at a non-zero value of H due to hysteresis. The jump in the energy 
is associated with a non-zero latent heat. The jumps in the energy and the 
magnetization are the typical signal for a first order phase transition, 
b- For T > Tc say T = 3 and 5 the magnetization becomes a smooth function of 
H near H = 0 which means that above Tc there is no distinction between the 
ferromagnetic states with M > 0 and M < 0. 

(2) We recompute the magnetization as a function of H for a range of H from —5 to 5 
and back. You should observe a hysteresis loop. 

a- Verify that the hysteresis window shrinks with increasing temperature or accu¬ 
mulating more Monte Carlo time, 
b- Verify what happens if we increase the size of the lattice. 

The phenomena of hysteresis indicates that the behaviour of the system depends 
on its initial state and history or equivalently the system is trapped in metastable 
states. 



Part II 

Monte Carlo Simulations of 
Matrix Field Theory 



Chapter 1 


Metropolis Algorithm for 
Yang-Mills Matrix Models 

1.1 Dimensional Reduction 

1.1.1 Yang-Mills Action 

In a four dimensional Minkowski spacetime with metric = (+1,-1,—1,-1), the 
Yang-Mills action with a topological theta term is given by 


5 = —^ 
2gK 

We recall the definitions 


(1.1) 


Da — da ...]. 

(1.2) 

7? - 

fllA ■ 

— dpA^ 

(1.3) 



(1.4) 

The path integral of interest is 

Z = f DA^ exp{iS). 

(1.5) 


This is invariant under the hnite gauge transformations Afj, —)■ g~^A^g + ig~^dfj,g with 
g = in some group G (we will consider mostly SU{N)). 

We Wick rotate to Euclidean signature as —)• = ix^ and as a consequence 

(G^x —)• d\x = id‘^x, So —^ di = —id^ and Aq —)■ A^ = —IAq. We compute —)■ 

{FIv)e and Ff^uF^^ —)• i{F^yF^y)E- We get then 
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DA^ exp{-SE)- 


( 1 . 6 ) 


Se = ^ lid^x)ETr{F^^,)E + r^ j{d‘^x)ETr{F^,F^,)E. (1.7) 

We remark that the theta term is imaginary. In the following we will drop the subscript E 
for simplicity. Let us consider first the 0 = 0 (trivial) sector. The pure Yang-Mills action 
is defined by 

5ym = ^ / d'xTrF^^. (1.8) 

The path integral is of the form 


j DA^ / ^"^^TrF^^). (1.9) 

First we find the equations of motion. We have 

dSyu = ^ j d'^x TtF^^SF^^ 

= ^ j d‘^x TrFfj,^D^5Aiy 

= J d‘^xTiD^F^y.5Ay+‘^ J d‘^x TrD^{Ffj_^6A^) 

= TiD^F^,.5A, + ^ Jd^x Trd^iF^^SA,). (1.10) 

The equations of motion for variations of the gauge field which vanish at infinity are 
therefore given by 


Equivalently 


D^F^y = 0. 


( 1 . 11 ) 


- i[Af,,F^y\ = 0 . 


( 1 . 12 ) 


We can reduce to zero dimension by assuming that the configurations Aa are constant 
configurations, i.e. are x—independent. We employ the notation Aa = Xa- We obtain 
immediately the action and the equations of motion 

Eym = -^Tr[Y^,Y,]2. (1.13) 


= 0 . 


(1.14) 



CP and MFT, B.Ydri 


118 


1.1.2 Chern-Simons Action: Myers Term 

Next we consider the general sector 0 ^ Q. First we show that the second term in the 
action Se does not affect the equations of motion. In other words, the theta term is only 
a surface term. We define 


We compute the variation 




— g^2 


We use the Jacobi identity 


(1.15) 


(1.16) 


Ffiv — ^^vapi^daFfiv i[A^.F,,]) 
— Yj/]] 

= 0 . 


(1.17) 


Thus 


1 


— g^2 '^[Aat Ffj^iydA.1^] 

= da6)Ca- 


(1.18) 


1 


6fCct g^2 ■ 


(1.19) 


This shows explicitly that the theta term will not contribute to the equations of motion 
for variations of the gauge field which vanish at infinity. 

In order to find the current /Cq itself we adopt the method of [^. We consider a one- 
parameter family of gauge fields A^(x,r) = tA^{x) with 0 < r < 1. By using the above 
result we have immediately 

= - rdyA^ - iT^[A^,Ay^ .Ap{x). (1.20) 

By integrating both sides with respect to r between r = 0 and r = 1 and setting JCaix, 1) = 
JCa{x) and JCa{x, 0) = 0 we get 


Fa — g^2 ( ty ^fJ'Av cy dyA^ ^ [A.^, A.j^] j .A.^(x). 


( 1 . 21 ) 
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The theta term is proportional to an integer k (known varionsly as the Pontryagin class, 
the winding nnmber, the instanton number and the topological charge) defined by 


k = 



( 1 . 22 ) 


Now we imagine that the four-dimensional Euclidean spacetime is bounded by a large 
three-sphere in the same way that we can imagine that the plane is bounded by a large 
S^, viz 




oS 

^ r\ 


Then 


k 


d^UrylCci 


ldR^=Sh, 


1 


[ d^cJaTr 

2 

Fixi/Ap -|- i—A^ApAj^ 

JdR*=Sl, 

O 


The Chern-Simons action is defined by 


(1.23) 


(1.24) 


5cs = iOk. 


(1.25) 


A Yang-Mills instanton is a solution of the equations of motion which has finite action. 
In order to have a finite action the field strength must approach 0 at infinity at least 
as 1/x^, vi^ 


= o{l/x^) , X —oo. (1.26) 

We can immediately deduce that the gauge field must approach a pure gauge at infinity, 
viz 


= ig ^df,g + o{l/x) , X —> oo. (1.27) 

This can be checked by simple substitution in = d^Ai, — Now 

a gauge configuration A^(x) at infinity (on the sphere 5^) defines a group element g 
which satisfies (from the above asymptotic behavior) the equation d^g~^ = iA^^g~^ or 
equivalently 

d dT^^ 

—g~'^{x{s),xo) = i—A^^{x{s))g~'^{x{s),XQ). (1.28) 

The solution is given by the path-ordered Wilson line 

g~^{x,xo) ='Pexp (^i ds^Al^{y{s))^. (1.29) 

^The requirement of finite action can be neatly satisfied if we compactify R'^ by adding one point at oo to 
obtain the four-sphere 
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The path is labeled by the parameter s which runs from s = 0 {y = xq) to s = 1 (y = x) 
and the path-ordering operator P is defined such that terms with higher values of s are 
always put on the left in every order in the Taylor expansion of the exponential . 

In the above formula for the points x and xq are both at infinity, i.e. on the sphere 
In other words gauge configurations with finite action (the instanton configurations 
A^^(x)) define a map from 5^ into G, viz 

g-i :Sl^G. (1.30) 

These maps are classified by homotopy theory. 

As an example we take the group G = SU (2). The group SU (2) is topologically a three- 
sphere since any element g G SU{2) can be expanded (in the fundamental representation) 
as <7 = n 4 -|-mr and as a consequence the nnitarity condition g'^g = 1 becomes = 1. 

In this case we have therefore maps from the three-sphere to the three-sphere, viz 


^-1 : ^ SU{2) = S\ 


(1.31) 


These maps are characterized precisely by the integer k introduced above. This number 
measures how many times the second (group) is wrapped (covered) by the first sphere 
(space). In fact this is the underlying reason why k must be quantized. In other words 
k is an element of the third homotopy group 7r3(5^), viz|^ 

k G tt 3{SU{2)) = TTsiS^) = Z. (1.32) 


For general SU(N) we consider instanton configurations obtained by embedding the SU (2) 
instanton configurations into SU{N) matrices as 


j^SU{N) ^ 


0 A 


SU{2) 


(1.33) 


We can obviously use any spin j representation of SU (2) provided it fits inside the N x N 
matrices of SU{N). The case N = 2j -|- 1 is equivalent to choosing the generators of 
SU{2) in the spin j representation as the first 3 generators of SU{N) and hence 
a = 1, 2, 3 are given by the SU{2) instanton configurations whereas the other components 
a = 4,...,iV2-l are zero identically. The explicit constructions of all these 
instanton solutions will not be given here. 

The story of instanton calculus is beautiful but long and complicated and we can only 
here refer the reader to the vast literature on the subject. See for example the pedagogical 
lectures (^. 

We go back to the main issue for us which is the zero dimensional redaction of the 


Chern-Simons term. By using the fact that on S^ we have Fny = 0 we can rewrite (1.24) 


as 


k = 


■L 


9 / d (Tq>T\A.^Ai/A.^. 

247r^ JoRi=s3 


(1.34) 


^In general 7r„(S'”) = Z. It is obvious that 7ri(S'^) = 712 (S'^) = Z. 
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By using also the fact that ^4^ = = ig ^dfj_g = iX^j, on we have 


k = 


1 


247r^ 


I d CTq^YtX^X yXjj. 


(1.35) 


ldR'^=Sl, 

By introducing now a local parametrization = ^a{x) of the G group elements we can 
rewrite k as (with Xa = g~^dag) 


k = 


1 


247r2 


-afiiy/S 


f ^3 d^a d^b ^ ^ ^ 

/ “ ^^- TlXaXbXc. 

9xij, oxy dxp 


Next we use 


d-^Ga = -eafMupdx^ A dxy A dxp. 


(1.36) 


(1.37) 


=Vp] = - 4^u) +Kidisi - 5^5 ^^^)+ 

We get 


k = 


247r2 6 Jg 


247r2 6 

— f 

2471-2 

1 


dx^> A dx^^ A dx^, ^ ^^TvXaXbXc 


dR‘i=Si, ' 

dia A d^b A dicTAXaXbXc 

d^ieabc"^XaXbXc. 


2 / '^'-aoc^^^-a^-o^-c- (1.39) 

247r2 jQRi=sl, 

The trace Tr is generically (2j + 1)—dimensional, and not Y—dimensional, corresponding 
to the spin j representation of SU{2). The Chern-Simons action becomes 

ie f 


Scs = 


d ^eabcTdcXaXbXc- 


(1.40) 


247r2 

As before we can reduce to zero dimension by assuming that the configurations Xa are 
constant. We obtain immediately 


5cs = '-^eabcTr^XaXbXa. 


By putting (1.13) and (1.41) we obtain the matrix action 

= -^Tt[X^,X,]^ + ^-^eabcTrXaXbXa. 


2ff2 

We choose to perform the scaling 


The action becomes 


X„ 






2Na 


Se = -jTt[X^,X,Y + i—eabcTrXaXbXa. 
The new coupling constant a is given by 

167r2 N \2Vra ) 


(1.41) 

(1.42) 

(1.43) 

(1.44) 


a = 


(1.45) 
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1.2 Metropolis Accept/Reject Step 

In the remainder we only consider the basic Yang-Mills matrix action to be of interest. 
This is given by 

5ym[Y] = -^rr[Y^,X,]2 

d d 

/i=i i/=/i+i 

The path integral or partition function of this model is given by 

Z = j WdX^eM-SYM). (1.47) 

The meaning of the meausre is obvious since are N x N matrices. The corresponding 
probability distribution for the matrix configurations is given by 

P{X) = ^eM-SyulX]). (1.48) 

We want to sample this probability distribution in Monte Carlo using the Metropolis 
algorithm. Towards this end, we need to compute the variation of the action under the 
following arbitrary change 

Xa ^ x; = Xa + AXa, (1.49) 

where 

(AXa) nm — dSfiiSfiij H" d Sfijdfjii. (1.50) 

The corresponding variation of the action is 

ASym = AS*! -|- AS' 2 . (1.51) 

The two pieces A5i and A52 are given respectively by 
AFi = -X^rr[X,,[XA,X,]]AXA 

a 

= -NdJ2[Xa,[Xx,X^]y-Nd*Y,[X^,[Xx,X^]]ij. (1.52) 

CT a 

^*^2 = J ;[ AXa , X <,]2 

= -E J][X,, [AXa,X,]],, - E* J][X,, [AXA,X,]]i,- 

a^X u^X 

= -X ^ d\X^),i{X^)j, + {d*)\X^)ij{X^)ij + 2dd*{XMXa)n 

a^X ■ 

- l{d^ + {d*f){{X^.h + {X^.)n)5,j . 


-dd*((X2),, + (X2),,) 
(1.53) 
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The Metropolis accept/reject step is based on the probability distribution 

P[X] = min(l, exp(—A5 ym)- (1-54) 

It is not difficult to show that this probability distribution satisfies detailed balance, and 
as a consequence, this algorithm is exact, i.e. free from systematic errors. 


1.3 Statistical Errors 


We use the Jacknife method to estimate statistical errors. Given a set of T = 2^ ( 
with P some integer ) data points /(i) we proceed by removing z elements from the set in 
such a way that we end up with n = T/z sets ( or bins). The minimum number of data 
points we can remove is z = 1 and the maximum number is z = T — 1. The average of 
the elements of the fth bin is 


< yU) >i= 


T-z 


T 


j=i j=i 


i = l,n. 


(1.55) 


For a fixed partition given by z the corresponding error is computed as follows 


e{z) 


n — 1 




n 


Y.{< y{j) >i-<f >)2 

i=l 


< f >= ^^/(i). 

j=i 


(1.56) 


We start with z = 1 and we compute the error e(l) then we go to z = 2 and compute 
the error e(2). The true error is the largest value. Then we go to z = 3, compute e(3), 
compare it with the previous error and again retain the largest value and so on until we 
reach z = T — 1. 


1.4 Auto-Correlation Time 

In any given ergodic process we obtain a sequence (Markov chain) of field/matrix 
configurations 4>i, We will assume that (/>* are thermalized configurations. Let 

/ some (primary) observable with values fi = /{(pi) in the configurations (pi respectively. 
The average value < / > of / and the statistical error 6/ are given by the usual formulas 

1 

<f>=-Y,f(- (1-57) 

i=l 

«/=^. (1.58) 


The standard deviation (the variance) is given by 

^2 =< /2 > - < / >2 


(1.59) 
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The above theoretical estimate of the error is valid provided the thermalized configurations 
(pi, are statistically uncorrelated, i.e. independent. In real simulations, this is 

certainly not the case. In general, two consecutive configurations will be dependent, and 
the average number of configurations which separate two really uncorrelated configurations 
is called the auto-correlation time. The correct estimation of the error must depend on 
the auto-correlation time. 

We define the auto-correlation function Tj and the normalized auto-correlation func¬ 
tion pj for the observable / by 

1 

< / >)(/*+i- < / >)■ (1-60) 

^ i=i 


Pj = 


h. 

Po' 


(1.61) 


These function vanish if there is no auto-correlation. Obviously Tq is the variance cr^, 
viz Tq = cT^. In the generic case, where the auto-correlation function is not zero, the 
statistical error in the average < / > will be given by 


Sf 


^=\/2rint- 

Vt 


(1.62) 


The so-called integrated auto-correlation time Tint is given in terms of the normalized 
auto-correlation function pj by 


Tnt=2+Edi- (1-63) 

The auto-correlation function Tj, for large j, can not be precisely determined, and hence, 
one must truncate the sum over j in Tint at some cut-off M, in order to not increase the 
error Jrint in Tint by simply summing up noise. The integrated auto-correlation time Tint 
should then be defined by 

1 ^ 

Tnt=2+E^T (1-64) 

The value M is chosen as the first integer between 1 and T such that 


M > 4Tint -|- 1. 


(1.65) 


The error dTint in Tint is given by 


f^Tint — 


AM + 2 


Tint- 


( 1 . 66 ) 


This formalism can be generalized to secondary observables F which are functions of n 
primary observables /“, viz F = F{f^, /^,..., /"■). See for example j^. 
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In general two among the three parameters of the molecular dynamics (the time step 
dt, the number of iterations n and the time interval T = ndt) should be optimized in such 
a way that the acceptance rate is fixed, for example, between 70 and 90 per cent. We fix 
n and optimize dt along the line discussed in previous chapters. We make, for every Y, a 
reasonable guess for the value of the number of iterations n, based on trial and error, and 
then work with that value throughout. For example, for N between N = 4 and N = 8, 
we found the value n = 10, to be sufficiently reasonable. 


1.5 Code and Sample Calculation 


Typically, we run Tther + Tmeas Monte Carlo steps where thermalization is supposed 
to occur within the first Tther steps, which are then discarded, while measurements are 
performed on a sample consisting of the subsequent Tmeas configurations. We choose, for 
N = 4 — 8, Tther = 2^^ and Tmeas = 2^^. The interval from which we draw the variations d 
and d* is updated after each Metropolis step by requiring that the acceptance rate is fixed 
between 25 and 30 per cent. We generate our random numbers using the algorithm ran2. 
We do not discuss auto-correlations while error bars are estimated using the jackknife 
method as discussed above. A FORTRAN code along these lines is included in the last 
chapter for illustrative purposes. This seems to go as fast as 

Some thermalized results for N = 8, 10, for dimensions between d = 2 and d = 10, 


are shown on figure (1.1). The observed linear fit for the average action is in excellent 


agreement with the exact analytic result 


<S> _d 
-I ~ 4 


(1.67) 


This identity follows from the invariance of the path integral under the translations 
+ eX^. 
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thermalized action for N=10 
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thermalized action for N=8,10 



Figure 1.1 
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Chapter 2 


Hybrid Monte Carlo Algorithm 
for Yang-Mills Matrix Models 

2.1 The Yang-Mills Matrix Action 

The hybrid Monte Carlo algorithm is a combination of the molecular dynamics method 
and the Metropolis algorithm. In this section we will follow and 
We are still interested in the Euclidean Yang-Mills matrix model 

5ym = ^ rr[X^,Y,]2 + I/(X). (2.1) 

7 is some parameter, and V is some t/(A)—invariant potential in the d matrices X^. 
In this chapter we will take a potential consisting of a harmonic oscillator term and a 
Chern-Simons term in the three directions Xi, X 2 and X 3 given by 

Y = ^m^TrXl + ‘^^eabcTrXaX^X,. (2.2) 

The path integral we wish to sample in Monte Carlo simulation is 

/ d 

exp(-5YM[A]). (2.3) 

M=1 

Firstly, we will think of the gauge configurations X^ as evolving in some fictitious time-like 
parameter t, viz 


= X,{t). (2.4) 

The above path integral is then equivalent to the Hamiltonian dynamical system 

Zym= I H n dX^ exp(-^ ^ TrPl - 5ym[A]). 

/i fi 11=1 


(2.5) 
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In other words, we have introduced d Hermitian matrices which are obviously N x N, 
and which are conjugate to X^. The Hamiltonian is clearly given by 


H=-^TrP^^ + SYM[X]. 


In summary, we think of the matrices X^ as fields in one dimension with corresponding 
conjugate momenta P^. The Hamiltonian equations of motion read 

We have then the equations of motion 

( 2 - 8 ) 

+ = -(P,)„, (2.8) 


We will define 




QSym 

diX^^Ut) 


dV 

= -N^Y.[X,,[X,,X,]],, + -— 

v=l 

= -N-iUx.X^X,- XlX^- x^xi\ Pm\X^)j, 

\ / ji 

+ 2iaN[X2.,X^]ji5^j,i + 2iaN[X^^Xi\ji5^2 + ‘^'ioi-X[Xi,X2\ji5^‘i. ( 2 . 10 ) 


2.2 The Leap Prog Algorithm 

The first task we must face up with is to solve the above differential equations. 

The numerical solution of these differential equations is formulated as follows. We 
consider Taylor expansions of + 5t) and {Pp)ij{t + 5t) up to order St‘^ given by 


•• 

+ 6t) = {X^)ij{t) + 5t{X^)ij{t) H— ^{Xn)ij{t) + 


( 2 . 11 ) 


SP ■■ 

+ St) = iPli)ij{t) + St{P^)ij{t) + —{PfjL)ij{t) + ••• 


We calculate that 


( 2 . 12 ) 


{Xf_i)ij — {Pii)ji — 


OSym 

d{X^)ji 


N^[X,,[X^,X,]] 


d{X, 


(2.13) 
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- Q'^Sym , y ^ 

nJ2 ([Pu, [X>.,X,]] + [X,, [Pj, Y,]] + [X,, [X^,pj]]] - , {X,)ki. 

u=l '' i* kl,u ^ ^^ 

(2.14) 


For generic non-local potentials V the second equation will be approximated by 


^ 5 ^ _ (Pf^)ij(^ + - (P/^)ij(i) 

_ 1 / dSyu _ dSyu \ 

6t\d{Xf,)ij{t + 6t) d{Xi,)ij{t))' 

Taylor expansions of {X^)ij{t -|- 5t) and {P^)ij{t + 5t) become 




{x^\,{t)+5t{p^),m 


OSym 

2 d{x^)ji{t) + - 


(2.15) 


(2.16) 


{Pfj)ij{t + ^Pj 


{Pli)ij{t) 


St OSym 

2 diX^),j{t) 


St OSym _ 

2 d{X^)i,{t + St)^'" 


We write these two equations as the three equations 


{Pij)ij{t + y) 


{PlJL)ij{t) 


St dSym 

2 d{x^)ij{ty 


(2.17) 


(2.18) 


— {X^)ij{t) + St{Pfj,)ji{t + 


(2.19) 


{Pij)ij{t + ^t) 


{P^l)ij{'t + y) 


St OSym 
' 2 d{x^yj{t +St)' 


( 2 . 20 ) 


By construction {X^)ij{t + St) and {Pp)ij{t + St) solve Hamilton equations. 

What we have done here is to integrate Hamilton equations of motion according to the 
so-called leap-frog algorithm. The main technical point to note is that the coordinates 
{Xfi)ij at time t + St are computed in terms of the coordinates {X^)ij at time t and the 
conjugate momenta {P^)ij not at time t but at time t -|- St/2. The conjugate momenta 
{P^)ij at time t + St are then computed using the new coordinates {X^)ij at time t + St 
and the conjugate momenta {P^)ij at time t + St/2. The conjugate momenta iPfj.)ij at 
time t + St/2 are computed hrst in terms of the coordinates {Xy)ij and the conjugate 
momenta {P^)ij at time t. 

We consider a lattice of points t = nSt, n = 0,1,2, ...,z/ — 1,1^ where (X^)jj(t) = 
{Xfj_)ij{n) and {Pij)ij{t) = {Pfj,)ij{n). The point n = 0 corresponds to the initial con- 
hguration (X^)y(O) = {X^)ij whereas n = v corresponds to the final configuration 
{Xfi)ij{T) = (X^)jj where T = vSt. The momenta {Pfi)ij{t) at the middle points n + 1/2, 
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n = 0, ...,u — 1 will be denoted by {Pp)ij{n + 1/2). The above equations take then the 
form 


{Pf,)ij{n +^) = {Pti)ijin) - j{Vf,)ijin). ( 2 . 21 ) 

+ 1 ) = + StiPii) jii'n + —). ( 2 . 22 ) 

{Pii)ij{n + 1) = {Pti)ij{n + 2^ “ + ^)- (2.23) 

This algorithm applied to the solution of the equations of motion is essentially the molec¬ 
ular dynamics method. 


2.3 Metropolis Algorithm 


Along any classical trajectory we know that; 

• 1) The Hamiltonian is invariant. 

• 2) The motion is reversible in phase space. 

• 3) The phase space volume is preserved defined by the condition 

d{X{T),P{T)) 

d{x{ 0 ),pm • 


(2.24) 


In other words detailed balance holds along a classical trajectory . The leap-frog method 
used to solve the above differential equations maintains only the last two properties. 
The violation of the first property introduces systematic errors and as a consequence 
detailed balance is violated. It is a well established fact that introducing a Metropolis 
accept/reject step at the end of each classical trajectory will eliminate the systematic 
error completely. The algorithm becomes therefore exact and it is known-together with 
the initial generation of the P’s according to the Gaussian distribution-as the hybrid 
Monte Carlo algorithm. The hybrid algorithm is the hybrid Monte Carlo algorithm in 
which the Metropolis accept/reject step is omitted. 

The difference between the hybrid algorithm and the ordinary molecular dynamics al¬ 
gorithm is that in the hybrid algorithm we refresh the momenta (P^)jj(t) at the beginning 
of each molecular dynamics trajectory in such a way that they are chosen from a Gaussian 
ensemble. In this way we avoid the ergodicity problem. 

The hybrid Monte Carlo algorithm can be summarized as follows: 

• I) Choose an initial configuration X^ = X^(0). 

• 2) Choose P^ = P^(0) according to the Gaussian probability distribution exp(—|TrP^). 

• 3)Find the configuration (X'p',) by solving the above differential equations of mo¬ 
tion, i.e. (X;,P;) = (X^(r),P4T)). 
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• 4)Accept the configuration P'^) with a probability min(l, e where AH 

is the change in the Hamiltonian.. 

• 5) Go back to step 2 and repeat. 

Steps 2 — 4 consists one sweep or one unit of Hybrid Monte Carlo time. The Metropolis 
accept/reject step guarantees detailed balance of this algorithm and absence of systematic 
errors which are caused by the non-invariance of the Hamiltonian due to the discretization. 


2.4 Gaussian Distribution 


We have 




J d{Pfj.)iie 2Y^Ei(Tu)?jy' d{Pfj.)ijd{Pij,)*j e E^EiEj=j+i(W)o('PA‘)i|2.25) 

We are therefore interested in the probability distribution 

Jdxe-'2^^\ (2.26) 


where a = 1/2 for diagonal and a = 1 for off-diagonal. By squaring and including 
normalization we have 


/ dxdy = C dti [\t 2 . 

J Jo Jo 


(2.27) 


ti = ^ , t2 = (2.28) 

27r 

We generate therefore two uniform random numbers ti and t 2 and write down for diagonal 
elements {PfjJu the following equations 


(f) = 2'Ktl 

r = v^-21n(l - t 2 ) 

{P^)ii = r cos (j). (2.29) 

For off-diagonal elements Pij we write the following equations 

(j) = 27rfi 

r = v^-ln(l - t 2 ) 

^ cos (f) + ir sin (j) 

(P^),, = (P^)F. (2.30) 


2.5 Physical Tests 

The following tests can be conducted to verify the reliability of the written code based 
on the above algorithm: 
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• Test l:For 7 = a = 0 the problem reduces to a harmonic oscillator problem. Indeed 
the system in this case is equivalent to N‘^d independent harmonic oscillators with 
frequency and period given by 

uj = m , T = —. (2-31) 

m 

The Hamiltonian is conserved with error seen to be periodic with period 

T TT 

Th = - = -. (2.32) 

2 m 

• Test 2:In the harmonic oscillator problem we know that the X’s are distributed 
according to the Gaussian distribution 

J dX^ (2.33) 

The Metropolis must generate this distribution. 


• Test 3: On general ground we must have 


< e 


-AH 


> 


1 

z 

1 

z 

1 

z 

1 . 


dPdX 

dPdX 

dP'dX' 


(2.34) 


• Test 4:On general ground we must also have the Schwinger-Dyson identity (exact 
result) given by 


47 < YM > +3a < CS > +2m^ < HO >= d{N'^ - 1). (2.35) 


N 

YU = --Y,Tr[X^,X,f. (2.36) 

CS = ‘^eabcTrXaXbXc. (2.37) 

HO = ^TrXf,. (2.38) 

• Test 5: We compute < 5 ym > and =< iSyM > — < ^ym for 7 = 1 and 
m = 0. There must be an emergent geometry phase transition in a for d = 3 and 


d = 4. 

• Test 6 : We compute the eigenvalues distributions of the X’s in d = 3 and d = 4 for 
7 = 1 and a = m = 0. 

• Test 7: The Polyakove line is defined by 

P{k) = 

We compute < P{k) > as a function of /c for m = a = 0. 


(2.39) 
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2.6 Emergent Geometry: An Exotic Phase Tran¬ 
sition 


As a concrete example we consider the Bosonic d = 3 Yang-Mills matrix model with 
only a Chern-Simons term, i.e. 7 = 1, a 7 ^ 0 and m = 0. This model depends on a single 
(scaled) parameter 

a = a'/N. (2.40) 


The order parameter in this problem is given by the observable radius defined by 

radius = TrY^. (2-41) 

The radius of the sphere is related to this observable by 

- 1 


r = 


d^C2 

radius 


, C2 = 


(2.42) 


A more powerful set of order parameters is given by the eigenvalues distributions of the 
matrices Y 3 , i[Ai, Y 2 ], and A^. Other useful observables are 

53 = YM + CS , YM = A,]2 , CS = ^^e.^^TrA^AfeA,. (2.43) 

The specific heat is 

Cy=<Sl>-< S 3 . (2.44) 

An exact Schwinger-Dyson identity is given by 

identity = 4 < YM > +3 < CS >= dN^. (2.45) 


For this so-called ARS model it is important that we remove the trace part of the matrices 
Xa after each molecular dynamics step because this mode can never be thermalized. In 
other words, we should consider in this case the path integral (partition function) given 

by 

Z = I dXa exp{-S 3 ) 5 {TrXa). (2.46) 

The corresponding hybrid Monte Carlo code is included in the last chapter. We skip here 
any further technical details and report only few physical results. 

The ARS model is characterized by two phases: the fuzzy sphere phase and the Yang- 
Mills phase. Some of the fundamental results are: 

1. The Fuzzy Sphere Phase: 

• This appears for large values of d. It corresponds to the class of solutions of 
the equations of motion given by 


[Aq-, A 5 ] — icXcfxiabcXc ; ^ — 1* 


(2.47) 
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The global minimum is given by the largest irreducible representation of SU ( 2 ) 
which fits m N X N matrices. This corresponds to the spin I = (N — l)/2 
irreducible representation, viz 

Xa = 4>aLa. (2.48) 


[Tq, Lj)\ — if^abcL/c ) C2 — ^ ^ — Z(/ T l).l7V — 


- 1 


In- 


(2.49) 


The values of the various observables in these configurations are 

C 2 „„ 2(fa‘^C2 ,. i2~2/nc-n\ 

63 = (p^a C 2 (- - -) , YM = —-— , CS =--- , radius = cp a c^2.50) 

^ o ^ o 

The eigenvalues of = X^ja and i[Di,D 2 ] = i\X\^X 2 \lc? are given by 


iV- 1 N 

— -—) •••) “I-—• 


(2.51) 


The spectrum of [Di,D 2 ] is a better measurement of the geometry since all 
fluctuations around L 3 are more suppressed. Some illustrative data for <1 = 3 
and Y = 4 is shown on figure (2.1). 

2. The Yang-Mills (Matrix) Phase: 

• This appears for small values of a. It corresponds to the class of solutions of 
the equations of motion given by 


[Xa,Xb]=0. (2.52) 

This is the phase of almost commuting matrices. It is characterized by the 
eigenvalues distribution 

p{X) = - X^). (2.53) 

It is believed that R = 2. We compute 

< radius > = 3 < TrX^ > 

l-R 

= 3N / dXp{X)X^ 

J-R 

= -R^N. (2.54) 

5 

• The above eigenvalues distribution can be derived by assuming that the joint 
eigenvalues distribution of the the three commuting matrices Xi, X 2 and X 3 is 
uniform inside a solid ball of radius R. This can be actually proven by quantizing 
the system in the Yang-Mills phase around commuting matrices [^. 

• The value of the radius R is determined numerically as follows: 

— The first measurement Ri is obtained by comparing the numerical result 


for < radius >, for the biggest value of N, with the formula (2.54). 
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— We use Ri to restrict the range of the eigenvalues of W 3 . 


— We fit the numerical result for the density of eigenvalues of X 3 , for the 
biggest value of N, to the parabola (2.53) in order to get a second measure¬ 
ment R 2 . 


— We may take the average of Ri and i? 2 - 
Example: For a = 0, we find the values i?i = 2.34{N = 6), Ri = 2.15{N = 8), 
Ri = 2.08(Y = 10), and R 2 = 2.05 ± 0.01(iV = 10). Sample data for d = 0 
with N = 6,8 and 10 is shown on figure ( |2.2[ ). 

• It is found that the eigenvalues distribution, in the Yang-Mills phase, is inde¬ 
pendent of a. Sample data for d = 0 — 2 and Y = 10 is shown on figure 

dpi). 


3. Critical Fluctuations: The transition between the two phases occur at d = 2.1. 
The specific heat diverges at this point from the Yang-Mills side while it remains 
constant from the fuzzy sphere side. This indicates a second order behaviour with 
critical fluctuations only from one side of the transition. The Yang-Mills and Chern- 
Simons actions, and as a consequence the total action, as well as the radii radius 
and r suffer a discontinuity at this point reminiscent of a first order behavior. The 
different phases of the model are characterized by 


fuzzy sphere (d > d* ) 

matrix phase (d << d*) 

r = 1 

r = 0 

a = i 

= 0.75 


The Monte Carlo results of , derived using the Metropolis algorithm of the previous 
chapter and shown on figure ( |2.4[ ), should be easily obtainable using the attached 
hybrid Monte Carlo code. 
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eigenvalues for the ARS model for a =3, N=4 



Figure 2.1: 


eigenvalues of X 3 for the ARS model for ct =0 



Figure 2.2: 
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eigenvalues of Xg for the ARS model for N =10 



X 


Figure 2.3: 




,N/<S> 


CP and MFT, B.Ydri 


139 


OJ 



35 

-1-1-1-1-1-1-1 


N=16 ' — ^ — ' 


N=12 i 

30 

N=10 1 * w 


theory ^ 

25 

- / 

20 

1 3 . 

= * * ■ 

X 

5 j se 

H 15 



I 3 * 

10 


5 

1 






-0.5 0 0.5 1 1.5 2 2.5 3 


a 



a 


Figure 2.4: 

















Bibliography 


[1] I. Montvay and G. Munster, “Quantum fields on a lattice,” Cambridge, UK: Univ. 
Pr. (1994), 491 p, Cambridge monographs on mathematical physics. 

[2] H. J. Rothe, “Lattice gauge theories; An Introduction,” World Sci. Lect. Notes Phys. 
74, 1 (2005). 

[3] J. Ambjorn, K. N. Anagnostopoulos, W. Bietenholz, T. Hotta and J. Nishimura, 
“Large N dynamics of dimensionally reduced 4D SU(N) super Yang-Mills theory,” 
JHEP 0007, 013 (2000) [arXiv:hep-th/0003208]. 

[4] J. Ambjorn, K. N. Anagnostopoulos, W. Bietenholz, T. Hotta and J. Nishimura, 
“Monte Carlo studies of the IIB matrix model at large N,” JHEP 0007, 011 (2000) 
[arXiv:hep-th/0005147]. 

[5] K. N. Anagnostopoulos, T. Azuma, K. Nagao and J. Nishimura, “Impact of su¬ 
persymmetry on the nonperturbative dynamics of fuzzy spheres,” JHEP 0509, 046 
(2005) [arXiv:hep-th/0506062]. 

[6] V. G. Pilev and D. O’Connor, “On the Phase Structure of Commuting Matrix Mod¬ 
els,” arXiv; 1402.2476 [hep-th]. 

[7] R. Delgadillo-Blando, D. O’Connor and B. Ydri, “Geometry in transition: A model of 
emergent geometry,” Phys. Rev. Lett. 100, 201601 (2008) [arXiv:0712.3011 [hep-th]]. 



Chapter 3 


Hybrid Monte Carlo Algorithm 
for Noncommutative Phi-Four 


3.1 The Matrix Scalar Action 

The hybrid Monte Carlo algorithm is a combination of the molecular dynamics method 
and the Metropolis algorithm. In this section we will apply this algorithm to matrix 
on the fuzzy sphere. This problem was studied using other techniques in 00- We will 
follow here [^[^. 

We are interested in the Euclidean matrix model 

5 = Tr{-a[La,^f + b^^ + c^^). 

The scaled (collapsed) parameters are given by 

b=— c= — 

aNr a^N^- 

The path integral we wish to sample in Monte Carlo simulation is 

Z = j exp(-5[$]). (3.3) 

As before, we will first think of the configurations as evolving in some fictitious time-like 
parameter t, viz 

$ = $(t). (3.4) 

The above path integral is then equivalent to the Hamiltonian dynamical system 

Z = j dPd<l> exp{-^TrP^ - S[<^>]). (3.5) 

In other words, we have introduced a Hermitian N x N matrix P which is conjugate to 
$. The Hamiltonian is clearly given by 

H = ^TrP'^ + S[<^]. 


(3.1) 

(3.2) 


(3.6) 
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In summary, we think of the matrix <1 as a field in one dimension with corresponding 
conjugate momentum P. The Hamiltonian equations of motion read 


dH 


— Pji ) 


dH 


{P)ij — 


dS 

d^ij ■ 


(3.7) 


We will define the scalar force by 




dS 

d^ij{t) 

a( - ALa^La + 2Ll^ + 2A>LI] + 2b<A>ji + 


(3.8) 


3.2 The Leap Prog Algorithm 

The numerical solution of the above differential equations can be given by the leap 
frog equations 


= (3.9) 

^ijit + St) = A>ij(t) + 5tPji{t + —). (3.10) 

P,,{t + 5t) = P,j{t + j)- + St). (3.11) 

Let us recall that t = nSt, n = 0,l,2,...,i/ — l,z^ where the point n = 0 corresponds to the 
initial configuration 4>jj(0) whereas n = v corresponds to the final configuration ^ij{T) 
where T = vSt. 


3.3 Hybrid Monte Carlo Algorithm 

The hybrid Monte Carlo algorithm can be summarized as follows: 

• 1) Choose P{0) such that P(0) is distributed according to the Gaussian probability 
distribution ex.p{—^TrP^). 

• 2)Find the configuration (<h(r), P{T)) by solving the above differential equations of 
motion. 

• 3)Accept the conhguration (<h(T),P(T)) with a probability 

min(l,e"^^[‘^’^l), (3.12) 

where AH is the corresponding change in the Hamiltonian when we go from (<5(0), P{0)) 
to (4>(r),p(r)). 

• 4) Repeat. 
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3.4 Optimization 


3.4.1 Partial Optimization 

We start with some general comment which is not necessarily a part of the optimization 
process. The scalar held <1 is a hermitian matrix, i.e. the diagonal elements are real, while 
the off diagonal elements are complex conjngate of each other. We hnd it crucial that we 
implement, explicitly in the code, the reality of the diagonal elements by subtracting from 
the imaginary part (error) which in each molecular dynamics iteration is small but 
can accumulate. The implementation of the other condition is straightforward. 

In actual simulations we can hx for example we take = 20, and adjust the step size 
St, in some interval [dtmiin Stmux], in such a way that the acceptance rate pa is held hxed 
between some target acceptance rates say paj^^ = 70 and pajjigh = 90 per cents. If the 
acceptance rate becomes larger than the target acceptance rate pa^igh, then we increase 
the step size St by a factor inc = 1.2 if the outcome is within the interval [5tmiin <^^max]- 
Similarly, if the acceptance rate becomes smaller than the target acceptance rate paj^^, 
we decrease the step size by a factor dec = 0.8 if the outcome is within the interval 
[Strain, Stranx]- The adjusting of St can be done at each Monte Carlo step, but it can also 
be performed only each L simulations. We take L = 1. A sample pseudo code is attached 


below. A sample of the results is shown in figure (3.1). 


pa=(Accept)/(Rejec+Accept) 
cou=niod(tmc,L) 

if (con.eq.0)then 

if (pa.ge.target_pa_high) then 
dtnew=dt*inc 

if (dtnew.le.dt_max)then 
dt=dtnew 
else 

dt=dt_max 
end if 

endif 

if (pa.le.target_pa_low) then 
dtnew=dt*dec 

if (dtnew.ge.dt_min)then 
dt=dtnew 
else 

dt=dt_niin 

endif 

endif 


endif 
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a=0,c=1.0,b=-5.3,nu=20,pa=0.7-0.9,dt=10**{-4)-1,N=10Tth=2**12 



time 


a=0,c=1.0,b=-5.3,nu=20,pa=0.7-0.9,dt=10**{-4)-1,N=10Tth=2**12 
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3.4.2 Full Optimization 

A more thourough optimization of the algorithm can also be done as follows Si- 
We take 6t small so that the acceptance rate pa is kept sufficiently large. Then we fix 
n and look for the value of 5 x r where the speed of motion in the phase space defined 
by 6t X pa is maximum. Then we fix 5t at its optimal value and look for the value of 
V where the autocorrelation time Tau is minimum. The number of iterations v must also 
be kept relatively small so that the systematic error (which is of order v x for every 
hybrid Monte Carlo unit of time) is kept small. Clearly a small value of u is better for 
the effeciency of the algorithm. 


3.5 The Non-Uniform Order: Another Exotic Phase 


3.5.1 Phase Structure 


The theory (3.1) is a three-parameter model with the following three known phases: 


• The usual 2nd order Ising phase transition between disordered < >= 0 and 

uniform ordered < >~ 1 phases. This appears for small values of c. This is the 

only transition observed in commutative phi-four. 


• A matrix transition between disordered < >= 0 and non-uniform ordered < $ >~ 

7 phases with 7 ^ = 1. This transition coincides, for very large values of c, with the 
3rd order transition of the real quartic matrix model, i.e. the model with a = 0, 
which occurs at 6 = —2y/Nc. See next chapter. 


• A transition between uniform ordered < >~ 1 and non-uniform ordered < >~ 

7 phases. The non-uniform phase, in which translational/rotational invariance is 
spontaneously broken, is absent in the commutative theory. The non-uniform phase 
is essentially the stripe phase observed originally on Moyal-Weyl spaces in . 

The above three phases are already present in the pure potential model V = Tr(6$^-|-c4^). 
The ground state configurations are given by the matrices 


$0 = 0. 


(3.13) 


^>7 = , 7 ' = Itv , UU+ = U+U = In- (3.14) 

We compute F[<ho] = 0 and F)*!*..),] = The first configuration corresponds to 

the disordered phase characterized by < <1> >= 0. The second solution makes sense 
only for b < 0, and it corresponds to the ordered phase characterized by < 4) >/ 0. 
As mentioned above, there is a non-perturbative transition between the two phases which 
occurs quantum mechanically, not at 6 = 0, but at 6 = 6 * = —2y/Nc, which is known as the 
one-cut to two-cut transition. The idempotent 7 can always be chosen such that 7 = 7 fc = 
diag(lfc, —Ijv-fc)- The orbit of 7 ^ is the Grassmannian manifold U{N)/[U{k) x U{N — k)) 
which is dfc—dimensional where dk = 2kN — 2k‘^. It is not difficult to show that this 
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dimension is maximum at /c = Y/2, assuming that N is even, and hence from entropy 
argument, the most important two-cut solution is the so-called stripe configuration given 
by 7 = diag(lAr/ 2 , -lAr/ 2 )- 

In this real quartic matrix model, we have therefore three possible phases characterized 
by the following order parameters: 

< <1 >= 0 disordered phase. (3.15) 


< d> >= ± 



Ising (uniform) phase. 


(3.16) 


< 4 >= ± 


- 7 matrix (nonuniform or stripe) phase. (3-17) 

2 c 


However, as one can explicitly check by calculating the free energies of the respective 
phases, the uniform ordered phase is not stable in the real quartic matrix model V = 


Tr(64>2-K c4>4). 

The above picture is expected to hold for noncommutative/fuzzy phi-four theory in any 
dimension, and the three phases are all stable and are expected to meet at a triple point. 
This structure was confirmed in two dimensions by means of Monte Carlo simulations on 
the fuzzy sphere in [^[^. 


3.5.2 Sample Simulations 

We run simulations for every N by running Tth thermalization steps, and then mea¬ 
suring observables in a sample containing T^c thermalized configurations <I>, where each 
two successive configurations are separated by Tco Monte Carlo steps in order to reduce 
auto-correlation effects. Most of the detail of the simulations have already been explained. 
We only mention again that we estimate error bars using the jackknife method and use 
the random number generator ran2. A sample code is attached in the last chapter. 

We measure the action < S >, the specific heat Cy, the magnetization m and the 
associated susceptibility y, the total power Pt, and the power in the zero modes Pq 
defined respectively by 

Cy=<S^>-<S>^. (3.18) 


m =< |Tr<k| > . 


=< |rr<l)|^ > - < \Tr^\ >" 


Pt = —rr4>T 
N 


p„ = T(rr#7 


(3.18) 

(3.20) 

(3.21) 

(3.22) 


We will also compute the eigenvalues of the matrix $ by calling the library LAPACK and 
then construct appropriate histograms using known techniques. 
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Ising: The Ising transition appears for small values of c and is the easiest one to observe 
in Monte Carlo simulations. We choose, for N = 8, the Monte Carlo times Tth = 2 ^ 1 , 
Tmc = 2 ^^ and Tco = 2 *^, i.e. we ignore to take into account auto-correlations for simplicity. 


The data for c = 0.1, 0.2 is shown on figure (3.2). The transition, marked by the peak of 


the susceptibility, occurs, for c = 0.1, 0.2, 0.3 and 0.4, at 5 = —0.5, —0.9, —1.4 and —1.75 
respectively. The corresponding linear fit which goes through the origin is given by 


c = -0.226* 


(3.23) 


Matrix: The disorder-to-non-uniform phase transition appears for large values of c and 
is quite difficult to observe in Monte Carlo simulations due to the fact that configurations, 
which have slightly different numbers of pluses and minuses, strongly competes for finite 
N, with the physically relevant stripe configuration with an equal numbers of pluses and 
minuses. In principle then we should run the simulation until a symmetric eigenvalues 
distribution is reached which can be very difficult to achieve in practice. We choose, 
for N = 8, the Monte Carlo times Tth = 2^^, Tmc = 2^^ and Tco = 2^. The data for 


the specific heat for c = 1 — 4 is shown on figure (3.3). We also plot the data for the 


pure quartic matrix model for c = 1 for comparison. The transition for smaller value 
of c is marked, as before, by the peak in specific heat. However, this method becomes 
unreliable for larger values of c since the peak disappears. Fortunately, the transition 
is always marked by the point where the eigenvalues distribution splits at A = 0. The 


corresponding eigenvalues distributions are shown on (3.4). We include symmetric and 


slightly non-symmetric distributions since both were taken into account in the data of 
the specific heat. The non-symmetric distributions cause typically large fluctuations of 
the magnetization and peaks in the susceptibility which are very undesirable finite size 
effects. But, on the other hand, as we increase the value of | 6 | we are approaching the non- 
symmetric uniform phase and thus the appearance of these non-symmetric distributions 
is very natural. This makes the determinantion of the transition point very hard from the 
behavior of these observables. 

We have determined instead the transition point by simulating, for a given c, the pure 
matrix model with a = 0 , in which we know that the transition occurs at 6 * = —2-v/7, and 
then searching in the full model with a = 1 for the value of 6 with an eigenvalues distribu¬ 
tion similar to the eigenvalues distribution found for a = 0 and 6 * = —2y/d. This exercise 
is repeated for c = 4,3, 2 and 1 and we found the transition points given respectively by 


6 * = —5, —4.5, —4, and —2.75. See graphs on figure (3.5). The corresponding linear fit is 
given by 

c =-1.36*- 2.77. (3.24) 

Two more observations concerning this transition are in order: 

• The eigenvalues distribution for the pure matrix model with a = 0 is such that it 
depends only on a single parameter given by <7 = ANc/b"^. See next chapter for more 
detail. From the Monte Carlo data the same statement seems to hold in the full 
model with a = 1 along the disorder-to-non-uniform boundary. See last graph on 


figure (3.5) 
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The disorder-to-non-uniform transition line seems to be better approximated by a 
shift of the result 6* = —2\/£ by a single unit in the —b direction. This is roughly in 
accord with the analytic result for the critical point found in for the multitrace 
approximation (see next chapter) which is given, for a = 1, by 


~ VN ^ N 
=- z -2vT + 




(3.25) 


Stripe: The uniform-to-non-uniform phase transition is even more difficult to observe 
in Monte Carlo simulations but it is expected, according to [lip], to only be a continuation 


of the disorder-to-uniform transition line (3.23). The intersection point between the above 


two fits (3.23) and (3.24) is therefore an estimation of the triple point. This is given by 


(c,6) = (0.56,-2.57). 


(3.26) 


However, this is not really what we observe using our code here. The uniform-to-non- 
uniform phase transition is only observed for small values of c from the uniform phase to 
the non-uniform phase as we increase —b. The transition for these small values of c, such 
as c = 0.1,0.2, 0.3, 0.4, corresponds to a second peak in the susceptibility and the specific 
heat. It corresponds to a transition from a one-cut eigenvalues distribution symmetric 
around 0 to a one-cut eigenvalues distribution symmetric around a non-zero value. The 


eigenvalues distributions for c = 0.3 are shown on the first two graphs of figure (3.7). 


In this case we have found it much easier to determine the transition points from the 
behavior of the magnetization and the powers. In particular, we have determined the 
transition point from the broad maximum of the magnetization which corresponds to the 
discontinuity of the power in the zero modes. The magnetization and the powers, for 


c = 0.1,0.2,0.3, 0.4, are shown on figure (3.8). The transition points were found to be 
— 1.5, —1.7, —2 and —2.1 respectively. 

The uniform phase becomes narrower as we approach the value c = 0.5. The specific 
heat and the susceptibility have a peak around b = —2.25 which is consistent with the 
Ising transition but the powers and the magnetization show the behavior of the disorder- 
to-non-uniform-order transition. The eigenvalues distribution is also consistent with the 


disorder-to-non-uniform-order transition. See last graph of figure (3.7). The value c = 0.5 
is roughly the location of the triple point. 


The phase diagram is shown on figure (3.6) 
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Figure 3.2 
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Figure 3.3 
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Figure 3.4 









P W P w 


CP and MFT, B.Ydri 


152 



N=8 



k 


Figure 3.5 
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Figure 3.6: 
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Figure 3.7: 
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Figure 3.8: 
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Chapter 4 

Lattice HMC Simulations of $ 2 ’ 
Lattice Example 


References for this chapter include the elegant quantum field theory textbook and 
the original articles 


4.1 Model and Phase Structure 


The Euclidean action with 0{N) symmetry is given by 

= I + + (4.1) 

We will employ lattice regularization in which x = an, f d’^x = a'^Yln^ 4>^{x) = (j)\^ and 
d^cj)^ = {4>h+fi — 4>h)l'^- The lattice action reads 

^[<^1 = + + ( 4 . 2 ) 

n ^ fi ^ 

The mass parameter vn? is replaced by the so-called hopping parameter k and the coupling 
constant A is replaced by the coupling constant g where 

2 2 1 “ ^5 r, I 9 (A‘i\ 

^ -2d, ^ = (4.3) 

The fields and ‘hjj are related by 


The partition function is given by 



ar ^ , 


(4.4) 


n,i 


(4.5) 
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The measure dn{4>) is given by 


n ^ 


(4.6) 


This is a generalized Ising model. Indeed in the limit g —)• oo the dominant configurations 
are such that <hf + ... + <I>^ = 1, i.e. points on the sphere . Hence 


/ dgL{^n)f{^n) _ f dQjV-lf(Sr. 


fdfi(^n) 

For Y = 1 we obtain 

/ dg{^n)f{^r 


f dfijY-2 


Yi(/( + l)+ /(-!)), 9 


OO. 


oo. 


(4.7) 


(4.8) 


fdfi(^n) 

Thus the limit g —)■ oo of the 0(1) model is precisely the Ising model in d dimensions. The 
limit g —)■ oo of the 0(3) model corresponds to the Heisenberg model in d dimensions. 
The 0{N) models on the lattice are thus intimately related to spin models. 

There are two phases in this model. A disordered (paramagnetic) phase characterized 
by < <I>(j >= 0 and an ordered (ferromagnetic) phase characterized by < >= Vi / 0. 

This can be seen in various ways. The easiest way is to look for the minima of the classical 
potential 


V[(f)] = — I d^x[ -m 


'd-l + ^((/>V)2 


The equation of motion reads 


,2 ^ 


[m + -4>^(j)^W = 0. 


(4.9) 


(4.10) 


For > 0 there is a unique solution (/>* = 0 whereas for m? < 0 there is a second solution 
given by (fdcfd = —2rin?l\. 

A more precise calculation is as follows. Let us compute the expectation value < <I>^ > 
on the lattice which is defined by 


< 4 >"n> = 






n+/i 


/(i/i(4>) e 


2KE„E„'i’ii'J’;+M 

i .«E„ ^nEY^YM+*n-/i) 




E„ E„ E^(^;+M+*n-/i) 


(4.11) 


Now we approximate the spins <I>^ at the 2d nearest neighbors of each spin <I>^ by the 
average u* =< <I>^ >, viz 




^ V ^ ' n—fly 


2d 


= V . 


(4.12) 
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This is a crude form of the mean field approximation. Equation (4.11) becomes 


f dfi(<Pn) 


(4.13) 


The extra factor of 2 in the exponents comes from the fact that the coupling between any 
two nearest neighbor spins on the lattice occurs twice. We write the above equation as 


V 


i 


d 


In Z[J^ I . 


(4.14) 


Z[J] 


I d/r(ch„) 


The limit 


0: In this case we have 


Z[J] = 


d^^i 




= Z[0] 


J'J' 

e 4 , 


In other words 


u* = 2Kcdv^ ^ Kc 


1 

M' 


(4.15) 


(4.16) 


(4.17) 


The limit g —>■ cx): In this case we have 

By using rotational invariance in N dimensions we obtain 

I d^^l -1)K = 0 . 


= Af I - 1 ) 


(4.18) 


(4.19) 


Sij 


- 1 ) = — 


d^^l - 1 ) = 


k if.k 


Z[0] 

iV 


(4.20) 


Hence 


Thus 


Z[J] 


Z[0] 


1 + 


JV* 

~W 




AKcdv’’ N 

N ^ “ 4d' 


(4.21) 


(4.22) 













CP and MFT, B.Ydri 


160 


The limit of The Ising Model: In this case we have 

N = 1 , g —)■ oo. (4.23) 


We compute then 


Z[J] = M j d<^n - 1) 
= Z[0] cosh J. 


(4.24) 


Thus 


V = tanh AkcIv. (4-25) 

A graphical sketch of the solutions of this equation will show that for k < Kc there is only 
one intersection point at u = 0 whereas for k> Kc there are two intersection points away 
from the zero, i.e. u 7 ^ 0. Clearly for k near Kc the solution v is near 0 and thus we can 
expand the above equation as 

V = Andv— ^{AKd)^v^ + .... (4.26) 

3 

The solution is 

= K - Kc. (4.27) 

Thus only for k > Kc there is a non zero solution. 

In summary we have the two phases 

K > Kc ■ broken, ordered, ferromagnetic (4.28) 


The critical line Kc 


K < Kc ■ symmetric, disordered, paramagnetic. (4.29) 

= Kc{g) interpolates in the k — g plane between the two lines given by 
Y 

= TV > 9 —^ oo- (4-30) 


Kc = ^ , g —^ 0. (4.31) 

For d = 4 the critical value at (/ = 0 is Kc = 1/8 for all N. This critical value can be 
derived in a different way as follows. We know that the renormalized mass at one-loop 
order in the continuum with 0{N) symmetry is given by the equation 


mR 


= rn^ + {N + 2)XI{m^,A) 


2 (Y -|- 2) A 2 
= + , _ „ 


IGvr^ 


^ 16ir2 


m 

In ^ -h 
A 2 


(iV + 2)A 


m^C -|- finite terms. 


(4.32) 
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This equation reads in terms of dimensionless quantities as follows 


2 2 
a vfiR 


2 , + 2)A {N + 2)A 2 2 , 2 2 , + 2)A 2 


m^C + X finite terms. 


(4.33) 


The lattice space a is formally identified with the inverse cut off 1/A, viz 


“=A- 


(4.34) 


Thus we obtain in the continuum limit a —)■ 0 the result 

22 , {N + 2)A {N + 2)A 2 21 2 2 I (-^ + 2)A 2 2 r^ , 2 ^ 

a m —)•- , „ „ -1- ^ ^ „ —a m mam H- ^ ^ „ —a m C + a x hnite terms. 


Ibvr^ Ibvr^ 


In other words (with ro = {N + 2)/87r^) 


Ibvr^ 


(4.35) 


22 .22 ' U \ I \ 2 \ 

a m —)• a + C(A ). 


(4.36) 


This is the critical line for small values of the coupling constant as we will now show. 
Expressing this equation in terms of k and g we obtain 

+ (4.37) 

This can be brought to the form 


1 . 

2 

1 

- 


— 


1 + 16rog - Ag 


+ 0{g‘^/K^). 


(4.38) 


We get the result 

K —^ = ^ + (y - |)ff + ©(s-^). 


(4.39) 


This result is of fundamental importance. The continuum limit a —)■ 0 corresponds 
precisely to the limit in which the mass approaches its critical value. This happens for 
every value of the coupling constant and hence the continuum limit a —)■ 0 is the limit 
in which we approach the critical line. The continuum limit is therefore a second order 
phase transition. 


4.2 The HM Algorithm 


We start by considering the Hamiltonian 


H[4>,P] 


1E +E (- E - t) .(4.40, 

n n ^ II ^ 
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The Hamilton equations of motion are 


dH 


dpi 

dH 


^ = P* 


= -P* = 

n ^ n' 


The force is given by 


v: 


dS 

dK 

-2k + K-f:) + + 4gK(^i<!>i - 1 ). 


(4.41) 


(4.42) 


The leap frog, or Stormer-Verlet, algorithm, which maintains the symmetry under time 
reversible and the conservation of the phase space volume of the above Hamilton equations, 
is then given by the equations 


pf.it+j) = {pyn{t)-jv:{t). (4.43) 

<l>;(t + St) = 4>Ui) + StP:,{t + |). (4.44) 

K{t + St) = Pi,{t + |) - |p,*(t + St). (4.45) 

We recall that t = nSt, n = 0,1, 2,..., k — 1,k where the point n = 0 corresponds to the 
initial configuration 4>(j(0) whereas n = v corresponds to the final configuration ^\{T) 
where T = vSt. This algorithm does not conserve the Hamiltonian due to the systematic 
error associated with the discretization, which goes as 0{5t‘^), but as can be shown the 
addition of a Metropolis accept-reject step will nevertheless lead to an exact algorithm. 

The hybrid Monte Carlo algorithm in this case can be summarized as follows: 

• 1) Choose P(0) such that P(0) is distributed according to the Gaussian probability 

distribution exp(—^ PnPn)- particular we choose P^ such that 

P^ = \/^2ln(W^'xiycos27r(l — X 2 ), (4.46) 

where xi and X ‘2 are two random numbers uniformly distributed in the interval [0,1]. 
This step is crucial if we want to avoid ergodic problems. 

• 2)Find the configuration (4>(r), P{T)) by solving the above differential equations of 
motion. 

• 3)Accept the configuration (<h(T),P(T)) with a probability 

min(l, (4.47) 

where AP is the corresponding change in the Hamiltonian when we go from ($(0), P(0)) 
to (4>(r),p(r)). 

• 4 ) Repeat. 
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4.3 Renormalization and Continuum Limit 

The continuum and lattice actions for theory in two dimensions with N = 1 are 
given, with some slight change of notation, by 




(4.48) 




(4.49) 


2 2 
^o = m . 


(4.50) 


2_22 ^ A \ _\ 2 9 

9oi — Fo® ~ 4 , A; = Aa — 

K K 


(4.51) 


In the simulations we will start by fixing the lattice quartic coupling A; and the lattice 
mass parameter which then allows us to fix k and g as 


K = 


aJsXi + (/Tq; + 4)2 — (^2^ + 4) 


4A; 


(4.52) 


g = K^Xi. (4.53) 

The phase diagram will be drawn originally in the — Xi plane. This is the lattice phase 
diagram. This should be extrapolated to the infinite volume limit L = Na —?• oo. 

The Euclidean quantum field theory phase diagram should be drawn in terms of the 
renormalized parameters and is obtained from the lattice phase diagram by taking the limit 
a —)• 0. In two dimensions the <I>^ theory requires only mass renormalization while the 
quartic coupling constant is finite. Indeed, the bare mass /ig diverges logarithmically when 
we remove the cutoff, i.e. in the limit A —)• oo where A = 1/a while A is independent of 
a. As a consequence, the lattice parameters will go to zero in the continuum limit a —?• 0. 

We know that mass renormalization is due to the tadpole diagram which is the only 
divergent Feynman diagram in the theory and takes the form of a simple reparametrization 
given by 

/^o = (4.54) 

where g? is the renormalized mass parameter and is the counter term which is fixed 
via an appropriate renormalization condition. The unltraviolet divergence In A of /ig 
is contained in 6g‘^ while the renormalization condition will split the finite part of /ig 
between and 6g^. The choice of the renormalization condition can be quite arbitrary. A 
convenient choice suitable for Monte Carlo measurements and which distinguishes between 
the two phases of the theory is given by the usual normal ordering prescription . 
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Quantization at one-loop gives explicitly the 2—point function 
r<"'(p) = p" + + 3A / ^ . 

A self-consistent Hartree treatment gives then the result 

(Pk 1 


(4.55) 


r(2)(p) = + 


— 3A 


(27r)2r(2)(A:) 
(Pk 1 
(27r)2r(2)(A:) 


— 6fP 


2 2 f 1 i: 2 1 

= p +p +3XJ ( 27 r )2 fc 2 + ^2 - +two-loop 


(4.56) 


This should certainly work in the symmetric phase where fp > 0. We can also write this 
as 


r*'^^(p) = P^ + d^ + ^(4’)) S(p) = 3AA^2 — -|-two — loop. (4-57) 


4^2 is precisely the value of the tadpole diagram given by 


f (Pk 1 

J (27r)2 P + p?' 


(4.58) 


The renormalization condition which is equivalent to normal ordering the interaction in 
the interaction picture in the symmetric phase is equivalent to the choice 

5p^ = 3\Ap2. (4.59) 

A dimensionless coupling constant can the be defined by 

/ = 4- (4-60) 

The action becomes 

= j + 4^(1 - 3fA^2)<jP + 


For sufficiently small / the exact effective potential is well approximated by the classical 
potential with a single minimum at ())ci = 0. For larger /, the coefficient of the mass term 
in the above action can become negative and as a consequence a transition to the broken 
symmetry phase is possible, although in this regime the effective potential is no longer 
well approximated by the classical potential. Indeed, a transition to the broken symmetry 
phase was shown to be present in , where a duality between the strong coupling regime 
of the above action and a weakly coupled theory normal ordered with respect to the broken 
phase was explicitly constructed. 

The sites on the lattice are located at = n^a where = 0,..., N — 1 with L = Na. 
The plane waves on a finite volume lattice with periodic boundary conditions are expppx) 
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with Pfj^ = m^27r/L where = — Y/2 +1, —N/2 + 2, ...,N/2 for N even. This means that 
the zero of the x—space is located at the edge of the box while the zero of the p—space 
is located in the middle of the box. We have therefore the normalization conditions 
X^^exp(-i(p - p)x) = Jpp/ and X]pexp(-i(x - x)p) = where, for example, = 
infinite volume limit defined by L = Na —)• oo with a fixed we have 
d^p/(27r)^. It is not difficult to show that on the lattice the propagator 
l/(p^ + p^) becomes a^/(4 sin^ ap^/2 + p^) j^. Thus on a finite volume lattice with 
periodic boundary conditions the Feynman diagram A ^2 takes the form 




E 

PnP2 


4 sin^ api /2 + 4 sin^ ap 2 /2 + p^ 


N N 


S3 E E 


4sin^ TTmi/Y + 4sin^ vrmo/Y + n? 

mi = l 7712 = 1 r I 


(4.62) 


In the last line we have shifted the integers mi and m 2 by N/2. Hence on a finite volume 
lattice with periodic boundary conditions equation (4.54), together with equation (4.59), 
becomes 


F{pf) =pf- 3 XiA^2 - pI = 0. (4.63) 

Given the critical value of Pqi for every value of A; we need then to determine the corre¬ 
sponding critical value of pf. This can be done numerically using the Newton-Raphson 
algorithm. The continuum limit a —?■ 0 is then given by extrapolating the results into 
the origin, i.e. taking A/ = a^A —0, pf = a?p^ —0 in order to determine the critical 
value 

/c = (4-64) 

4.4 HMC Simulation Calculation of The Critical 
Line 

We measure as observables the average value of the action, the specific heat, the 
magnetization, the susceptibility and the Binder cumulant defined respectively by 


< 5 >. 

(4.65) 

=< 52 > - < 5 >2 . 

(4.66) 

M = ^<m>, m = 1 

(4.67) 


n 


X =< m^ > — < m >^ . 


(4.68) 
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U = 1- 


< m > 

3 < m? >2 


(4.69) 


We note the use of the absolute value in the dehnition of the magnetization since the 
usual definition M =< is automatically zero on the lattice because of the 

symmetry (p —> —p. The specific heat diverges at the critical point logarithmically as 
the lattice size is sent to inhnity. The susceptibility shows also a peak at the critical point 
whereas the Binder cumulant exhibits a fixed point for all values of N. 

We run simulations with Tth + Tmc x 2co steps with Tth = 2^^ thermalization steps 
and Tmc = 2^^ measurement steps. Every two successive measurements are separated by 
Tco = 2^ steps to reduce auto-correlations. We use ran2 as our random numbers generator 
and the Jackknife method to estimate error bars. The hybrid Monte Carlo code used in 
these simulations can be found in the last chapter. 

We have considered lattices with N = 16,32 and 49 and values of the quartic coupling 


given by A/ = 1,0.7,0.5,0.25. Some results are shown on hgure (4.1). The critical value 
for each value of A; is found from averaging the values at which the peaks in the specific 
heat and the susceptibility occur. The results are shown on the second column of table 
(4.1). The final step is take the continuum limit a —)• 0 in order to hnd the critical value 


by solving the renormalization condition (4.63) using the Newton-Raphson method 


This is an iterative method based on a single iteration given by — F/F' . The 


corresponding results are shown on the third column of table (4.1). The critical line is 


shown on figure (4.2) with a linear fit going through the origin given by 


A; = (9.88 ± 0.22)^t 


(4.70) 


This should be compared with the much more precise result A/ = 10.8/i^^ published in j^. 
The above result is sufficient for our purposes here. 





1.0 

0.7 

0.5 

0.25 

-1.25 ±0.05 

-0.95 ±0.05 

-0.7 ±0.00 

-0.4 ±0.00 

1.00 X 10-2 
6.89 X 10-2 

5.52 X 10-2 

2.53 X 10-2 


Table 4.1: 
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3i|=0.7 3i|=0.5 




X,=0.25 X|=1.0 




Figure 4.1: 
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Figure 4.2: 
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Chapter 5 

(Multi-Trace) Quartic Matrix 
Models 


5.1 The Pure Real Quartic Matrix Model 


This is a very well known, and a very well studied, model which depends on a single 
hermitian matrix M. This is given by 


V = BTrM^ + CTrM^ 

= —i-TrM‘^ + -TrM'^). 
9 4 ' 

The model depends actually on a single coupling g such that 


B = - 


N 

9 


C 


There are two stable phases in this model: 


N 

^9' 


(5.1) 


(5.2) 


Disordered phase (one-cut) for g > Qc'. This is characterized by the eigenvalues 
distribution of the matrix M given by 


p{X) = ^(2C'A2 + B + Cd^)VS^ - A2 
IsiTr 

= —(-A^ — 1 + r^)\/4r2 — A^. 
gn 2 

This is a single cut solution with the cut defined by 

— 2r < A < 2r. 


1 . 

r=-S. 


6^ = :^{-B + Vb^ + 12NC) 

= 0(1 + 


(5.3) 


(5.4) 

(5.5) 


(5.6) 
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Non-uniform ordered phase (two-cut) for g < Qf.: This is characterized by the 
eigenvalues distribution of the matrix M given by 

p{\) = ^\/(A2-<52)(i2-A2) 

= ^y'(A2 - rU(ri - A2). (5,7) 

Here there are two cuts defined by 

r- < |A| < r+. (5.8) 

r_ = , r+ = 52- (5.9) 

= ^{-Bt2VnC) 

= 2(lTv/ff). (5.10) 

A third order transition between the above two phases occurs at the critical point 

g^ = l^ Bl = ANC ^ Bc = -2\fNC. (5.11) 

There is a third phase in this model: the so-called Ising or uniform ordered phase, which 
despite the fact that it is not stable, plays an important role in generalizations of this 
model, such as the one discussed in the next section, towards noncommutative 


5.2 The Multi-Trace Matrix Model 


Our primary interest here is the theory of noncommutative on the fuzzy sphere 
given by the action 

The Laplacian is A = [La, [Tq, ...]]. Equivalently with the substitution = Al/V27r0, 
where M. = 'Yldj=i TLjK >< ll) this action reads 


S = Tr{ aMAM + bM^ + cM' 


The parameters ar^ 


a = 


1^12 A 1 


(5.13) 


(5.14) 


^The noncommutativity parameter on the fuzzy sphere is related to the radius of the sphere by 6 
2LVV1V2 - 1. 














CP and MFT, B.Ydri 


172 


In terms of the matrix M the action reads 

S[M] = r‘^K[M]+ Tr [bM‘^ + cM^]. 
The kinetic matrix is given by 


K[M] = Tr 
The matrices T, Ta and E are given by 


- T+MTM- —FsMTsM + EM"^ 

N + 1 


(5.15) 


(5.16) 


I 772 \ 

(r3)zm = ISlm , (r)/m = J {m - 1){1 - , {E)im = {I - (5.17) 

The relationship between the parameters a and is given by 

= 2aN (5.18) 

We start from the path integral 


Z = J dM exp ( — SlM]') 

= J dA A^(A) exp ^ — Tr(6A^ + cA"^)^ J dU exp ^ — r^Ar[[/A[/“^]^ .(5.19) 

The second line involves the diagonalization of the matrix M (more on this below). The 
calculation of the integral over U G U{N) is a very long calculation done in [^[^. The end 
result is a multi-trace effective potential given by (assuming the symmetry M —?• —M) 

5eff = 






r^2 


V2,l J^(Ai - Xj f + ^(Y - A 






24A2 


^2,2[^(Ai - Aj)^] . 

(5.20) 


The coefficients v will be given below. If we do not assume the symmetry M —)• —M 
then obviously there will be extra terms with more interesting consequences for the phase 
structure as we will discuss briefly below. 


This problem (5.20) is a generalization of the quartic Hermitian matrix potential 


model. Indeed, this effective potential corresponds to the matrix model given by 


V = 


2 / b 


^ 3 


TrM^ 


. (5.21) 


This can also be solved exactly as shown in [^. The strength of the multi-trace term rj is 
given by 


fj = V2,2 - ^V4,l- 


(5.22) 
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The coefficients V 2 ,i, f 4 ,i and ^ 2,2 are given by the following two competing calculations 
of and given respectively by 


1 

V2,l = 1 , ^^ 4,1 = 0 , V2,2 = -■ 

o 


(5.23) 


1^2,1 = -1 , '^’4,1 = - , V2,2 = 0. 
This discrepancy is discussed in [^. 


(5.24) 


5.3 Model and Algorithm 

We thus start from the potential and the partition function 


V 


Trf^BM^ + CM^'^ + . 


(5.25) 


We may include the odd terms found in without any real extra effort. We will not do 
this here for simplicity, but we will include them for completeness in the attached code. 
The partition function (path integral) is given by 


Z = y dM exp(-P). (5.26) 

The relationship between the two sets of parameters {a, b, c} and {B, C, D} is given by 

(5.27) 


aN'^V2,i a^N^V4,i 2r]o?N‘^ 

B = b -\ --—^ , 6 = c H--—^ , D =---. 


6 


The collpased parameters are 


C 


~ B ~ dv2,i ^ C ^ 2T]d?N 

B = T7^ = I>+—,C=-,=c + —,D = - 


ivl 


(5.28) 


Only two of these three parameters are independent. For consistency of the large N 
limit, we must choose d to be any fixed number. We then choose for simplicity o = 1 or 
equivalently D = — 2r/iV/2[^ 

We can now diagonalize the scalar matrix M as 


M = 


(5.29) 


We compute 


6M = U( dA + [U-^6U,A] ]U 


T-l 


(5.30) 


^The authors of fll chose instead a = 1. 
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Thus (with U ^5U = i5V being an element of the Lie algebra of SU(N)) 
Tr{5Mf = Tr{5Kf+ Tr[U-^5U,Kf 


(5.31) 




We count real degrees of freedom as there should be. The measure is therefore given 
by 


dM = d\i dPij(iPj*\/det (metric) 

i ij^j 


We write this as 


i y 


dM = dAdUA'^iA). 


(5.32) 


(5.33) 


The dU is the usual Haar measure over the group SU(N) which is normalized such that 
f dU = 1, whereas the Jacobian A^(A) is precisely the so-called Vandermonde determinant 
defined by 


A2(A) = n(Y-A,f. 

i>j 

The partition function becomes 

Z = j dA A2(A) exp ^ - Tr{BA^ + CA^) - D^TrA^^ 


(5.34) 


We are therefore dealing with an effective potential given by 

2 

~ 2 




i=l 


i=l 


2=1 


(5.35) 


(5.36) 




We will use the Metropolis algorithm to study this model. Under the change A* —)■ Xi + h 
of the eigenvalue A* the above effective potential changes as Ueff —^ Peff + h where 


AVi^h = BAS2 + CASi + D{2S2AS2 + ASl) + AFvand- 


(5.37) 


The monomials Sn are defined by Sn = Yhi while the variations ASn and AS'vand are 
given by 


A52 = h‘^ + 2hXi. 


(5.38) 


A54 = e/i^Af + AhXf + Ah^Xi + /i^ 


(5.39) 


AS'vand = —2 ^ In 1 1 -I- 


h 


Xj A 7 


(5.40) 
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5.4 The Disorder-to-Non-Uniform-Order Transi¬ 
tion 


The pure quartic matrix model (5.1) is characterized by a third-order phase transition 


between a disordered phase characterized by < M >= 0 and a non-uniform ordered 
phase characterized by < M >= —i? 7 / 2 C where 7 is an Al—dimensional idempotent, viz 
7 ^ = 1. This transition is also termed one-cut-to-two-cut transition. Thus the eigenvalues 
distribution of the scalar field M will go from a one-cut solution centered around 0 in the 
disordered phase to a two-cut solution with two peaks symmetric around 0 in the uniform 
ordered phase. The transition should occur around g = Qc = I- This transition is critical 
since the two different eigenvalues distributions in the two phases become identical at the 
transition point. 

Monte Carlo tests of the above effects, and other physics, can be done using the code 
found in the last chapter. An illustration with 2^*^ thermalized configurations, where 
each two successive configurations are separated by 2 ^ Monte Carlo steps to reduce auto¬ 


correlation effects, and with Y = 10 and g = 2, 1.5,1,0.5, is shown on figure (5.1). The 


pure quartic matrix model is obtained from the multitrace matrix model by setting the 


kinetic parameter a zero. We observe an excellent with the theoretical predictions (5.3) 


and (5.7) 


The above transition is third-order, as we said, since the first derivative of the specific 
heat has a finite discontinuity at f = B/\Bc\ = —1 as is obvious from the exact analytic 
result 


a 


1 


— = - f < -1 
iV2 4 ’ ^ • 


(5.41) 


Cy 1 2r^ f ^ - 

iw = 4 + ^ , f > -1. 


(5.42) 


This behavior is also confirmed in Monte Carlo simulation as shown for c = 4 and N = 8 


and Y = 10 on figure (5.2). 


The above one-cut-to-two-cut transition persists largely unchanged in the quartic mul¬ 


titrace matrix model (5.21). On the other hand, and similarly to the above pure quartic 


matrix model, the Ising phase is not stable in this case and as a consequence the transition 
between non-uniform order and uniform-order is not observed in Monte Carlo simulations. 
The situation is drastically different if odd multitrace terms are included. 
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Figure 5.1 
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cT=4 



bT 


Figure 5.2: 


5.5 Other Suitable Algorithms 


5.5.1 Over-Relaxation Algorithm 

In the case of scalar matrix models two more algorithms are available to us. The 
first is the over-relaxation algorithm which is very useful in the case of noncommutative 
on the fuzzy sphere given by the action 


We define 


^2 


AttE? 

TT 



<1>A$ -h 

2 


S4 


Ti 



(5.44) 


Let $0 be some initial configuration obtained at the end of some ergodic procedure such 
as the Metropolis algorithm or the hybrid Monte Carlo algorithm. Let be some new 
completely random configuration and thus completely independent configuration from 4*0 • 
If = 5[<I>*] < So = 5'[4'o] then <1* will be accepted as the new configuration. We want 
to devise an algorithm in which the system is forced to accept the new configuration 4>* 
even if > Sq- This is equivalent to heating up the system again and then letting it cool 
down slowly. Towards this end, we scale the configuration <I>* as 


4>i = q;4>*. 


(5.45) 


The scale a is chosen such that 


5i = 5[$i] = 5o. 


(5.46) 
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Equivalently 


5*4*0;^ + S2*oP‘ — Fo = 0. 


The solution is given by 

if So > 0 : 


y'S'i + 4S0S4* 


2 S 4 * 



(5.47) 


(5.48) 


if So < 0 and {S 2 * < -v'-4SoS4* < 0} : + 4 ^0 % , ^ 2 . _ 

2S4* 

If the conditions in the above two equations are not met then we should redefine the 
matrix iterativley as 


4>=. 




(5.50) 


Then repeat. This iterative procedure will obviously create unwanted autocorrelations 
due to the fact that <1* becomes closer in each iteration to $ 0 - However, the process will 
terminate in a finite number of steps and the obtained final configuration <I>i has a greater 
probability in falling in a different orbit than the original <ho- 

The claim of is that this algorithm solves the ergodic problem observed in Monte 
Carlo simulations of noncommutative on the fuzzy sphere. 


5.5.2 Heat-Bath Algorithm 


The second algorithm is the heat-bath algorithm which works very nicely for the 
unbounded potential 


V = -(TrM^-^TrM^). 
9 4 


(5.51) 


Remark the minus sign in front of the quartic term. Although this potential is unbounded 
from below it has a well defined large N limit due to the metastability of the origin. The 
path integral is given by 


Z = 


dM exp(——TrM^) ex.p(—TrM‘^) 
9 45 


N 


N. 


dMdQexpi -TrM^ - TrQ^ ^ —TrQM"^). 


9 


9 


(5.52) 


The matrices M and Q are fully Gaussian. Let us then consider a Gaussian distribution 


(5.53) 


— J dxexp{—ax^). 

The Gaussian random number x must be chosen, in any Monte Carlo routine, as 


R = ^-^^(1 - ri) 
(j) = 27rr2 
x = Rcosd). 


(5.54) 
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The ri and r 2 are two uniform random numbers between 0 and 1. 

The part of the above path integral which depends on Q is Gaussian given by 


dQ exp{—Tr{Q — 


1 N 

2V7 


-M 


2^2^ 


(5.55) 


The diagonal element Qu comes with a factor a = 1 while the off diagonal elements comes 
with a factor a = 2. Thus we choose 


Qu = Zu\a=l + , Q^j = 


(5.56) 


The X, y and z are Gaussian random numbers with a = 1. 

The part of the path integral which depends on the diagonal element Mu is given by 

f Y[d^u exp^ f - —(1 - J ^Qii){Miif + — '^(QijMji + QjiMij)M, 


]~[ dMii exp i - li{Mii - + ... ).(5.57) 


2li' 


h — —(1 ~ y ~j^Qu) t hi — -y — '^^{QijMji + QjiMij). 

9 y 9 


(5.58) 


Thus the diagonal elements Mu are Gaussian numbers which come with factors a = li. 
Thus we choose 


I h'i 


(5.59) 


Finally, the part of the path integral which depends on the off diagonal element Mij is 
given by 


dMijdM*j exp ^ ( - lijM*jMij + hijM*j + h*jM, 
Yi i¥=j 




Yl dM^jdM*j exp J] - lij\Mij - + 

i^j ^ 




(5.60) 


hj — 


N 


1 - 


1 19 


^ {Qu + Qjj) 



( X/ QikMkj + ^ QkjMikj ■ 




(5.61) 


Hence the off diagonal elements Mij are Gaussian numbers which come with factors a = Uj. 
Thus we choose 

A% = 5i^U.i + (2. (5.62) 

V Hj Hj 

This algorithms can also be applied quite effectively to simple Yang-Mills matrix models 
as done for example in [^[^. 
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Chapter 6 


The Remez Algorithm and The 
Conjugate Gradient Method 

6.1 Minimax Approximations 

The rational hybrid Monte Carlo algorithm (RHMC) uses in an essential way a rational 
approximation to the fermionic determinant. Thus in this section we will first review the 
issue of rational and polynomial approximations of functions. We will follow [^[^. 

6.1.1 Minimax Polynomial Approximation and Chebyshev 
Polynomials 

Chebyshev norm: We start by introducing the Chebyshev norm (also called uniform, 
infinity, supremum norm) of a continuous function / over the unit interval [0,1] by the 
relation 


oo — lilUn—^oo 


= lim„ 


n 

U \ l/n 

da:|/(x)|’" 


10 


= maxa;|/(x)|. 


( 6 . 1 ) 


Minimax approximation: A minimax polynomial (or rational) approximation of / 
is a polynomial (or rational) function p which minimizes the Chebyshev norm of p — /, 
viz 


||p-/||oo = m.mpmax^\p{x) - f{x)\. (6.2) 

Weierstrass theorem: The fundamental theorem of approximation theorem is Weier- 
strass theorem. This can be stated as follows. For every continuous function f{x) over 
a closed interval [a, 6], and for every specified tolerance e > 0, there exists a polynomial 
Pn{x) of some degree n such that for all x G [a, h], we have | |/(x) —Pn(a^)| |oo < e- Thus any 
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continuous function can be arbitrarily well approximated by a polynomial. This means 
in particular that the space of polynomials is dense in the space of continuous functions 
with respect to the topology induced by the Chebyshev norm. 

Chebyshev theorem (minimax polynomial approximation): We consider a 
function / defined on the unit interval. For any given degree n, there exists always a 
unique polynomial Pn of degree n which minimizes the error function 


e||oo = maxo<a;<i|e(x)| = maxo<a:<i|pn(a:) - f{x)\, 


(6.3) 


iff the error function e{x) takes its maximum absolute value at at least n + 2 points on 
the unit interval, which may include the end points, and furthermore the sign of the error 
alternate between the successive extrema. 

We can go from the function f{x) defined in the interval [—1,+1] to a function f{y) 
defined in a generic interval [a, b] by considering the transformation x —>■ y given by 


y- l{b + a) 
lib-a) 


(6.4) 


A simple proof of this theorem can be found in [^. This goes as follows: 

• Chebyshev’s criterion is necessary: If the error has fewer than n + 2 
alternating extrema then the approximation can be improved. Let p{x) be 
a polynomial for which the error e{x) = p{x) — /(x) has fewer than n + 2 alternating 
extrema. The next largest extremum of the error, corresponding to a local extremum, 
is therefore smaller by some non zero gap A. Between any two successive alternating 
extrema the error obviously will pass by zero at some point z*. If we assume that we 
have d + 1 alternating extrema, then we will d zeros Zi. We can trivially construct 
the polynomial 


u{x) = AY\ix - Zi). (6.5) 

i 

We choose A such that the sign of u{x) is opposite to the sign of e(x) and its 
magnitude A is less than A, viz 

u{xi)e{xi) < 0 , A = maxo<a;<i|ri(x)| < A. (6.6) 

We consider now the polynomial p {x) = p{x) + u{x) with corresponding error func¬ 
tion e {x) = e(x) + u{x). The first condition u(xi)e(xi) < 0 yields directly to the 
conclusion that the error e (x) is less than e{x) in the domain of the alternating 
extrema, whereas it is the condition A^ < A that yields to the conclusion that e (x) 
is less than e{x) in the domain of the next largest extremum. Thus e (x) < e(x) 
throughout and hence p (x) is a better polynomial approximation. 

• Chebyshev’s criterion is sufficient: If the error is extremal at exactly 
n + 2 alternating points then the approximation is optimal. Let us assume 
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that there is another polynomial p (x) which provides a better approximation. This 
means that the uniform norm ||e^||oo = niaxo<a;<i|e\x)| = maxo<a:<i|p\x) —/(x)| is 
less than ||e||oo = niaxo<a;<i|e(x)| = maxo<a;<i|p(a:) — f{x)\. Equivalently we must 
have at the n + 2 extrema of e{xi) the inequalities 

|e'(xi)| < |e(xj)|. (6.7) 

By the requirement of continuity there must therefore exist n + 1 points Zi between 
the extrema at which we have 

e{zi) = e{zi). (6.8) 

This leads immediately to 

p{zi)=p{zi). (6.9) 

In other words, the polynomial p {x) —p{x) has n +1 zeros, but since this polynomial 
is of degree n, it must vanish identically. Hence p (x) = p{x). 

Chebyshev polynomials: The Chebyshev polynomial of degree n is defined by 


T„(cos 0) = cos n6*-H-T„(x) = cos(n cos ^ x). (6.10) 

We have the explicit expressions 

To = 1 , Ti = X , Ts = 2x2 - 1 , ... (6.11) 

From the results Tn±i = cos nO cos 9 =F sinn0sin0 we deduce the recursion relation 

Tn+l = 2xTn - Tn-l- (6-12) 

These polynomials are orthogonal in the interval [—1,1] with a weight 1/(1 — viz 

(]t tt 

j ^ -^_r,(x)r,(x) = -5,,. (6.13) 

(i'T 

J ^ -^_ro(x)ro(x)=7r. (6.14) 

The zeros of the polynomial Tn{x) are given by 


TT r 2 1 ^ TT 

Tnicos 0) = 0 => cosnO = 0 => n0 = {2k — 1) — ^ x = cos - , k = 1,2, ..., rz(.6.15) 

2 2n 

Since the angle 6 is in the interval between 0 and vr. There are therefore n zeros. 

The derivative of T„ is given by 

d rj. d _i . . _i ^ 

—in = —n—COS x.sm(ncos x) 

ax ax 

n . , -lx 
= , sm ncos x). 


(6.16) 
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The extrema of the polynomial Tn{x) are given by 

—Tn = 0 =i> sin(n0) = 0^n6 = k7r^x = cos — , k = 0,2,..., n. (6-17) 

ax n 

There are n +1 extrema. The maxima satisfy Tn{x) = 1 while the minima satisfy Tn{x) = 

- 1 . 

The Chebyshev polynomials satisfy also the following discrete orthogonality relation; 

m 

'^Ti{xk)Tj{xk) = ^dij. (6.18) 

k=l 

m 

^To{xk)To{xk) = m. (6.19) 

fc=i 

In the above two equations i,j < m and Xk, k = 1,..., m, are the m zeros of the Chebyshev 
polynomial Tm{x). 

Since Tn{x) has n + 1 extrema which alternate in value between —1 and +1 for — 1 < 
X < 1, and since the leading coefficient of Tn{x) is 2"'“^; the polynomial Pn{x) = x^ — 
2i-"'T„(x) is the best polynomial approximation of degree n — 1 with uniform weight 
to the function x” over the interval [—1,1]. This is because by construction the error 
en{x) = Pn{x) — x” = 2^“”Tn(x) satisfies Chebyshevs criterion. The magnitude of the 
error is just ||en||oo = 2^“”' = i.e. the error decreases exponentially with n. 


Chebyshev approximation: Let /(x) be an arbitrary function in the interval [—1, +1] 
The Chebyshev approximation of this function can be constructed as follows. Let N be 
some large degree and x^, k = 1,..., N, be the zeros of the Chebyshev polynomial Tm{x). 
The function /(x) can be approximated by the polynomial of order N defined by 

fN{x) = ^ CkTk-i{x) - -Cl. (6.20) 

k=l 

The coefficients Ck are given by 

2 ^ 

^ nYI f{xk)Tj-i{xk). (6.21) 

' fc=i 


This approximation is exact for x equal to all of the N zeros of Tiv(x). Indeed, we can 
show 


N 

y~]r;_i(xfc)/Af(xA;) 

fc=l 


In other words. 


N N 

Ti_i{xk)Tk-i{xk) 

k=l k=l 



N 


YTi-lixk) 

k=l 





( 6 . 22 ) 


fN{xk) = f{xk)- 


(6.23) 
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For very large N, the polynomial /tv becomes very close to the function /. The polynomial 
/tv can be ” gracefully”, by using the words of , truncated to a lower degree m « N 
by considering 

m ^ 

fm{x) = ^ CkTk-i{x) - -Cl. (6.24) 

k=l 

The error for rapidly decreasing c^, which is given by the difference between /tv and fm, is 
dominated by Cm+iT^ which has m + 1 equal extrema distributed smoothly and uniformly 
in the interval [—1,+!]. Since the T’s are bounded between —1 and +1 the total error 
is the sum of the neglected Ck, k = m + 1, The Chebyshev approximation fm{x) is 

very close to the minimax polynomial which has the smallest maximum deviation from 
the function f{x). Although the calculation of the Chebyshev polynomial fmix) is very 
easy, finding the actual minimax polynomial is very difficult in practice. 


Economization of power series: This will be explained by means of a specific 
example. We consider the function f{x) = sinx. A quintic polynomial approximation of 
this function is given by the Taylor expansion 


1 ^ 

X X 

sm X = X - 1 -. 

6 120 


(6.25) 


The domain of definition of sinx can be taken to be the interval [—7r,7r]. By making 
the replacement x —> x/tt we convert the domain of definition [—7r,7r] into the domain 
[-1,1], viz 

sinx = TTX-1-. (6.26) 

6 120 ^ ^ 

The error in the above quintic approximation is estimated by the first neglected term 
evaluated at the end points x = ±1, viz 

'^U=. = 0.6. (6.27) 

The error in the 7th degree polynomial approximation can be found in the same way. We 
get in this case -k^ x^/9 \\x=-k = 0.08. 

The monomials x^ can be given in terms of Chebyshev polynomials by the formulas 


x^ = 


2k-l 


Tk{x) + 


k\ 


l!(fc- 1)! 


Tk-2{x) + 


k\ 


2\{k - 2)\ 


Tk-i{x) + ... + 


k\ 






k od46.28) 


x^ = 


2k-l 


Tk{x) + 


k\ 


1 !(A:- 1 )! 


Tk-2{x) + 


k\ 


2\{k - 2) 


Tk-^ix) + ... + 


kl 




n(x) 


k eve46.29) 


For example 


X = ri(x). 


(6.30) 
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x^ = -^[T3{x) + 3Ti{x)]. 


(6.31) 


X® = th[^5(x) + 5r3(x) + lOTi(x)]. 


16 


By substitution we get the result 


TT^X^ 


Sm X = TTX — 


+ 


TT^X^ 


6 120 
7r(192 - 247r2 + 7r3) 
192 


Ti- 


7r^(16 — TT^) 
384 


13 + 


vr 


1920 


Ts. 


(6.32) 


(6.33) 


Since \Tn\ < 1, the last term is of the order of 0.16. This is smaller than the error 
found in the qnintic approximation above. By truncating this term we obtain a cubic 
approximation of the sine function given by 


7r(192 — 247r^ + TT^) 7r^(16 —vr^)^ 
smx = -7^:^:- +1 --+3 


192 


384 


(6.34) 


By substituting the Chebyshev polynomials by their expressions in terms of the x^, and 
then changing back to the interval [— vr, +7r], we obtain the cubic polynomial 


sinx 


383 5x3 


(6.35) 


By construction this cnbic approximation is better than the above considered quintic 
approximation. 


6.1.2 Minimax Rational Approximation and Remez Algo¬ 
rithm 

Chebyshev theorem revisited: Chebyshev theorem can be extended to the case 
of minimax rational approximation of functions as follows. Again we consider a function 
/ defined on the unit interval. For any given degree {n,d), there exists always a unique 
rational function rn,d of degree (n, d) which minimizes the error function given by 


||e||oo = maxo<j:<i|e(x)| = maxo<a;<i|r„,d(x) - /(x)|, ( 6 . 36 ) 

iff the error function e(x) takes its maximum absolute value at at least n + d + 2 points 
on the unit interval, which may include the end points, and furthermore the sign of the 
error alternate between the successive extrema. 

A simple proof of this theorem can be fonnd in [^. As it can be shown rational 
approximations are far more superior to polynomial ones since, for some functions and 
some intervals, we can achieve substantially higher accuracy with the same number of 
coefficients. However, it should also be appreciated that constructing the rational approx¬ 
imation is mnch more difficult than the polynomial one. 
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We will further explain this very important theorem following the discussion of [^. 
The rational function is the ratio of two polynomials pn and qd of degrees n and d 
respectively, viz 

/ s, Pn{x) , 

rn,d[x) = —(6.37) 
Qd{x) 

The polynomials pn and Qd can be written as 

Pn{x) = ao + aix + ... + Unx"- , qd{x) = 1 + /3ix + ... + I3dx^. (6.38) 

We will assume that r^^d is non degenerate, i.e. it has no common polynomial factors in 
numerator and denominator. The error function e{x) is the deviation of r^^d from /(x) 
with a maximum absolute value e, viz 


e(x) = r„,d(x) - /(x) , e = maxo<x<i|e(x)|. 


Equation (6.37) can be rewritten as 

ao + OLix + ... + UnX^ = (/(x) + e(x)) ( 1 + fdix + ... + (3dX 


(6.39) 


(6.40) 


There are n + d + 1 unknowns Ui and fdi plus one which is the error function e(x). We 
can choose the rational approximation rn,x{x) to be exactly equal to the function /(x) at 
n + d + 1 points Xj in the interval [—1, l],viz 


f{xi) = rn,d{xi) , e(xi) = 0. 


(6.41) 


As a consequence the n + d + 1 unknowns Oj and /3i will be given by the n + d + 1 linear 
equations 


ao + aiXj + ... + Onxf 


/(xj) ( 1 + ^iXj + ... + (3dx\ 


(6.42) 


This can be solved any standard method such as LU decomposition. 

The points Xi which are chosen in the interval [—1,1] will generically be such that 
there exists an extremum of the error function e(x) in each subinterval [xi,Xj+i] plus two 
more extrema at the endpoints ± — 1 for a total of n + d + 1 extrema. In general, the 
magnitudes of r(x) at the extrema are not the same. 

Alternatively, we can choose the rational approximation rn,xix), at n + d + 1 points 
Xi, to be equal to /(x) + yi with some fixed values pi of the error function e(x). Equation 


(6.42) becomes 


ao 


+ aiXi + ... + anxf = if{xi) + Pi) ^1 + diXi + ... + d^xf^ . 


(6.43) 


If we choose the Xi to be the extrema of the error function e(x) then the pi will be exactly 
±e where e is the maximal value of |e(x) |. We get then n + d + 2 (not n + d + 1) equations 
for the unknowns a,, (5i and e given by 

ao + aiXi + ... + a^x" = (/(x*) ± e) ^1 + /3iXj + ... + /3dx{^ . (6.44) 

The ± signs are due to the fact that successive extrema are alternating between —e and 
+e. Although, this is not exactly a linear system since e enters non linearly, it can still 
be solved using for example methods such as Newton-Raphson. 
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Remez algorithm: A practical constructive approach to the minimax rational ap¬ 
proximation of functions is given by Remez (or Remes) algorithm. This is a very difficult 
algorithm to get to work completely and properly and some people such as the authors 
dislike it. 

The Remez algorithm involves two nested iterations; the first on e and the second on 
the Xi's. Explicitly, it goes through the following steps: 

• We choose or guess n -|- d -|- 2 initial values of the points Xi in the interval [0,1]. The 
goal is to make these points converge to the alternating extrema discussed above. 

• The first iteration: We keep the Xj’s fixed and find the best rational approximation 
which goes through the points (xi,/(xj) -t- (—1)*A). Towards this end, we need to 
solve the n -|- d -|- 2 equations 

ao + aiXi + ... + anx2 = {f{xi) + (-1)*A)) -t- (3iXi -|- ... -h Pdxfj . (6.45) 

The unknowns are a*, /3i and A. We write this equation as 


Mv = 0. (6.46) 

The (n -|- d -|- 2)—dimensional vector v is formed from the coefficients Oj, i = 0,..., n 
and 13j, j = 0, ...,d with do = 1. This linear system has a non trivial solution iff 
detM = 0. This condition is a polynomial in A. The real roots of this polynomial 
are the allowed values of A and each one of them will correspond to a solution Oi and 
(3j. Each solution (ai,f3j) corresponds to a certain rational approximation Vn^^x). 
We pick the solution which minimizes the error function. 

• The second iteration: We keep e or A fixed and choose a new set of points XiS 
which is the best alternating set for e{x). This is done as follows. We choose an 
arbitrary partition {/j} of the interval [0,1] where li is such that Xi G li. Then we 
choose a new set of points x'^ such that 

x'i&Ii , (-l)*e(x-) = max 2 ; 6 /,(-l)*e(xi). (6.47) 

Several drawbacks of this algorithm are noted in [^[^. Among these, we mention here the 
slow rate of convergence and the necessity of multiple precision arithmetic. 

Zolotarevs Theorem: The case of rational approximations of the sign function, the 
square root and the inverse square root are known analytically in the sense that the coef¬ 
ficients of the optimal and unique Chebyshev rational approximations are known exactly. 
This result is due to Zolotarev. 

The Numerical Recipes algorithm: A much simpler but very sloppy approxi¬ 
mation, which is claimed in to be ’’within a fraction of a least significant bit of the 
minimax one”, and in which we try to bring the error not to zero as in the minimax case 
but to ± some consistent value, can be constructed as follows: 
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• We start from n + d + 1 values of Xi, or even a larger number of Xi, which are spaced 
approximately like the zeros of a higher order Chebyshev polynomials. 

• We solve for ai and dj the linear system: 

no + aiXi + ... + anXi = f{xi) + (3iXi + ... + . (6.48) 

In the case that the number of Xj’s is larger than n + d + 1 we can use the singular 
value decomposition method to solve this system. The solution will provide our 
starting rational approximation rn,d{x). Compute e(xj) and e. 

• We solve for ai and dj the linear system: 

ao + aiXi + ... + anXi = {f{xi) ± e) + dix* + ... + /3dxf^ . (6.49) 

The ± is chosen to be the sign of the observed error function e{xi) at each point Xi. 

• We repeat the second step several times. 

6.1.3 The Code ’’AlgRemez” 

This code can be found in [^. 

6.2 Conjugate Gradient Method 

6.2.1 Construction 

Our presentation of the conjugate gradient method in this section will follow the ped¬ 
agogical note [^. See also (^[^. 

The basic problem: We consider a symmetric and positive definite n x n matrix A 
and an n—dimensional vector v. The basic problem here is to solve for the n—dimensional 
vector X which satisfies the equation 


Ax = V. (6.50) 

We will find the solution by means of the conjugate gradient method which is an iterative 
algorithm suited for large sparse matrices A. 

Principles of the method: The above problem is equivalent to finding the minimum 
X of the function 4>(x) defined by 

<h(x) = -xAx — XV. (6.51) 

The gradient of <I> is given by 


V4>(x) = Ax — V. 


(6.52) 
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This vanishes at the minimum. If not zero, it gives precisely the direction of steepest 
ascent of the surface The residual of the above set of equations is defined by 

r =—V^{x) = V — Ax. (6.53) 

We will denote the n linearly independent vectors in the vector space to which x belongs 
by f = 1,..., n. They form a basis in this vector space. The vector x can be expanded 
as 

n 

X = ^ = Ps. (6.54) 

i=l 

P is the n X n matrix of the linearly independent vectors i.e. Pij = pl^\ and s is the 
vector of the coefficients Sj. Typically, we will start from a reference vector xq. Thus we 
write 


X = Xq + Ps. 


The vectors are Y—conjugate to each other iff 


= 0 , f / j. 


Thus we can write 


P'^AP = D. 

D is a diagonal matrix with elements given by 

di = 


(6.55) 


(6.56) 


(6.57) 


(6.58) 


The gradient of <1 takes the form 

V$ = APs — ro , fo = u — Axq. 

Next, multiplication with the transpose P^ yields 

P^V4> = P^APs-P'^fo 
= Ds — P^tq. 


The solution to V<h = 0 is then 


Ds — P^ro = 0 Sj 




(6.59) 


(6.60) 


(6.61) 


The solution Si found by globally minimizing 4>, also locally minimizes along the direc¬ 
tion . Thus starting from a vector To we obtain the solution 


Xi= Xq + 


Si = 




ro = u — ^To. 


(6.62) 



CP and MFT, B.Ydri 


191 


This is the local minimum of <1 along a line from xq in the direction Indeed, we can 
check that 

= = (6.63) 

The vector tq is the first residual at the point To given by 

= -To. (6.64) 


Next, starting from the vector xi we obtain the solution 


- , T2) - - /t- 

X2=X1 + S2i^ > , S2 = 


(6.65) 


This is the local minimum of <1 along a line from xi in the direction . The vector ri 
is the new residual at the point xi, viz 


V^la-i = -Ti- 


( 6 . 66 ) 


In general starting from the vector x* we obtain the solution 


Xi+l =Xi + , Si+1 = 




P 




y = T — ylxi. 


(6.67) 


This is the local minimum of <1 along a line from x* in the direction The vector r) 

is the residual at the point x^, viz 


V$| 


= -n. 


( 6 . 68 ) 


The residual vectors provide the directions of steepest descent of the function at each 
iteration step. Thus if we know the conjugate vectors we can compute the coefficients 
Si and write down the solution x. Typically, a good approximation of the true minimum 
of <1 may be obtained only after a small subset of the conjugate vectors are visited. 


Choosing the conjugate vectors: The next step is to choose a set of conjugate 
vectors. An obvious candidate is the set of eigenvectors of the symmetric matrix A. 
However, in practice this choice is made as follows. Given that we have reached the 
iteration step i, i.e. we have reached the vector Xi which minimizes <I> in the direction 
the search direction will be naturally chosen in the direction of steepest descent of 

the function <I> at the point Xj, which since A is positive definite is given by the direction 
of the residual r), but conjugate to the previous search direction We start then from 
the ansatz 


= (6.69) 

This must be A—conjugate to viz 

= 0 . 


(6.70) 
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This yields the value 




(6.71) 


The gradient at the point Xi is orthogonal to all previous search directions j < i. 
Indeed, we compute 




(^Axi — vj 
i 

[Axo + ^ SkAjf^^ — v) 
k=l 
i 

- fo) 

k=l 

i 

k=l 


0 . 


(6.72) 


This formula works also for j = i. The gradients V<k|^. is also orthogonal to all previous 
gradients V<k|^^., j < i. Indeed, we have 

V<k|v.V<I>U. = -f,-V<I>U. 

I '^j \ J \ ‘J-'i 

= -(Ap-<^')+p<^'+^))WU- 

= 0. (6.73) 

The first search direction can be chosen arbitrarily. We can for example choose = 
fo = —The next search direction is by construction A—conjugate to 
At the third iteration step we obtain which is A—conjugate to The remaining 
question is whether is A—conjugate to or not. In general we would like to show 
that the search direction generated at the ith iteration step, which is A—conjugate to 
is also A—conjugate to all previously generated search directions ^ j < i — 1. 
Thus we need to show that 

= 0 , j < f - 1. (6.74) 


We compute 




^i)^(f?._i _ i)j 

— {xj — Xj-i)Afi-i — 

— (-rj- + fj_i)rj_i - A^-^^A^*“d 

—Xff-A 


0 . 


(6.75) 



CP and MFT, B.Ydri 


193 


Summary: Let us now summarize the main ingredients of the above algorithm. We 
have the following steps: 

1) We choose a reference vector xq. We calculate the initial residual fo = v — Axq. 

2) We choose the first search direction as = rg. 

3) The first iteration towards the solution is 

xi = xo + sipT i = (6.76) 

4) The above three steps are iterated as follows: 

ri = V — Axi. (6.77) 


p(^+l) = fi — , A 


pi-^Ap^.^)' 


(6.78) 




(6.79) 


Xi+l =Xi + 


(6.80) 


By using equations (|6.77|) and (|6.80|) we can show that equation (6.77) can be re- 

(6.81) 


placed by the equation 


n = fi_i - 


Also we can derive the more efficient formulas 

nn 






A = -: 


nri 


Ti-lTi-l 


(6.82) 


5) The above procedure continues as long as |r| > e where e is some tolerance, otherwise 
stop. 


6.2.2 The Conjugate Gradient Method as a Krylov Space 
Solver 

We start this section by introducing some slight change of notation. By making the 
replacements ^*+^1 —>• —/?*, A ——Ui the conjugate gradient algorithm will 

read 

Xi+i =Xi- /3iPi , j3i = (6.83) 


Ti+i = fi + /3iApi. 


( 6 . 84 ) 












CP and MFT, B.Ydri 


194 


—* _ —» I —* _ 1 1 /Z? O CT1 

Pi+i = Ti+i + ai+ipi , aj+i = ——. (6.85) 

nri 

We start iterating from 

xo = 0 , ro = P — ^4x0 = V , po = fo = v. (6.86) 

Remark now the following. We have 

fo = v — Axq G spanjro}. (6.87) 

ri = fo + PoAfo G spanjfo, Afo}. (6.88) 

P 2 = do + l^oAro + /3iA{ro + do^Po) + ai/3iAro e spanjfo, Atq, A'^fo}- (6.89) 

In general we will have 

fn = Pn{A)fo G span{fo, Afo, A'^fo, ..., ^"'r'o}. (6.90) 

The Pn{A) is a polynomial of degree n which obviously satisfy Pn(0) = 1. It is called 


the residual polynomial. On the other hand, the space span{ro, ^ro,..., Y^ro} is called 
a Krylov subspace. Since the residues are orthogonal the polynomials Pn{A) are also 
orthogonal. 

Similarly, we observe that 



Po = To G span{ro}. 

(6.91) 


Pi = fi + aifo G spanjro, Afo}. 

(6.92) 


P 2 = f 2 + a 2 fi + aia: 2 fo G spanjfo, Afo, A^foj. 

(6.93) 

Thus in general 

Pn G spanjfo, Afo, A^fo,..., AVq}. 

(6.94) 

Also 

n—1 

Xn = Xq - y^^jdiPi. 

i=0 

(6.95) 

Thus 



Xn 

-To = Qn-i(A)fo G spanjfo, Afo, A^fo,..., A"'“Vo}. 

(6.96) 


The Qn-i{A) is a polynomial of exact degree n — 1. Hence both the conjugate gradient 
directions pn and the solutions Xn — To belong to various Krylov subspaces. 

The conjugate gradient method is an example belonging to a large class of Krylov 
subspace methods. It is due to Hestenes and Stiefel and it is the method of choice for 
solving linear systems that are symmetric positive definite or Hermitian positive definite. 
We conclude this section by the following two definitions. 
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Definition 1: Given a non-singular matrix A G c^-xn g non-zero vector r G C”, 
the nth Krylov (sub)space JCn{A, r) generated by A from r is 

lCn{A, r) = span(r, Ar,A^~^r). (6.97) 

Definition 2: A standard Krylov space method for solving a linear system Ax = b is 
an iterative method which starts from some initial guess xq with residual vq = b — Axq 
and then generates better approximations Xn to the exact solution x* as follows 

Xn-xo = Qn-i(A)ro G lCn{A,ro) = spanjro, Aro, A^ro,A"-“Vo}. (6.98) 

The residuals of the above so-called Krylov space solver will satisfy 

Tn = Pn(A)ro G /Cn+i(A,ro) = span{ro,Aro, A^ro,...,A"'ro}. (6.99) 

It is not difficult to show that 

P„(A) = l-AQ„_i(A). (6.100) 


6.2.3 The Multi-Mass Conjugate Gradient Method 

The goal now is to solve a multi-mass linear system of the form 

{A + cf)x = v. (6.101) 

By a direct application of the conjugate gradient method we get the solution 


xf+l = X^ - , f^i = - . 

(6.102) 

fT+i = fT + l3i{A + a)^i. 

(6.103) 

—u —<7 1 (7 —O' 0 i-\-l i-\-l 

Pi+l ~ G+1 Y ^i+lPi ) ^i+1 ~ zxrzxr 

(6.104) 

GG 


= 0 , = tT - (A + a)f^ = F , pb = ^ = ^- 

(6.105) 


There is clearly a loop over a which could be very expensive in practice. Fortunately we 
can solve, by following [^, the above multi-mass linear system using only a single set of 
vector-matrix operations as follows. First we note that 

r^i = 77 + (5^{A + cr)f^ = Pf_^i{A + a)f^ G JCi+ 2 {A + a, fo). (6.106) 

As discussed before the polynomials Pj+i are orthogonal in A + a. This follows from the 
fact that T ff and as a consequence 


P[^i(A + a)f^ T/Cj+i(A-|-cj, rb). 


(6.107) 
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However, we have the obvious and fundamental fact that 


/Ci+i(H + o-, fo) = /Ci+i(H,fo). (6.108) 

In other words, the polynomials Pj+i are orthogonal in A as well. We must therefore have 

Pr_,,(A + a) = Cr+lP^+l(A). (6.109) 


The polynomials are thus of a shifted structure. By the identity (6.100) it follows 
that the polynomials are not of a shifted structure. This single observation will allow 
us to reduce the problem to a single set of vector-matrix operations. 

By multiplying equation (6.104) by -|- a) and using equation (6.103) we get 

( 6 . 110 ) 


/3r+i(H + ct)pT+i = /3r+i(A + cT)r7+i + - 7) 


/3r 


By substitution in equation (6.103) we get the 3—term recurrence given by 


' i+2 


= (1 + 






)7+i + 77i(^ + 77+i- 


7+i<+i ^ 

7 *■ 


( 6 . 111 ) 


By using (6.109) we obtain 


Ci+2p+2 — (1 + 


/?f+l<+l 

/3f 


)Ci+pi+i + -I- (t)C7iP+i “ 


/3f+i<+i 

/3r 


However, the no-sigma recurrence reads 


ri+2 = (H-X- )ri+i + /tj+iHrj+i-^-r,;. 


7 

By comparing the AfiJ^i terms we obtain 


/5n = A 


A 


Cfrl. (6.112) 


(6.113) 


Ci 


n+1 


Sr? 


By comparing the r* terms and also using the above result we obtain 




Cn-l/dn-l 


(6.114) 


(6.115) 


By comparing the iy+i terms and also using the above two results we find after some 
calculation 


C+1 = 


77 l/3n-l 


OtnlBn{Cn-l ~ Cn) + Cn-l/3n-l(l ~ 

Let us conclude by summarizing the main ingredients of this algorithm. These are: 
1. We start from 


(6.116) 


By setting i 


f = 7 = 0,7 = 7 = 17, p = 7 = i7. 


—1 in (6.112) we see that we must also start from 


(6.117) 


Q^O — Q^o ~ 5 /^-l ~ /^-l ~ ^ ; Co — C-i — 1- 


( 6 . 118 ) 
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2. We solve the no-sigma problem (we start from n = 0); 


II 

1 

> 


^n+1 — PnPn- 

(6.119) 

fn+l = fn + PnApn^ 

(6.120) 


^n+l^n+1 

^n+1 — 

Pn+l = Tn+l + an+lPn- (6.121) 

3. We generate solutions of the sigma problems by the relations (we start from n = 0): 

CnCn-l/dn-l 


C+1 = 


OlnPniCn—l Cn) “t" Cn-lidn—1 (1 Cr/3n) 


( 6 . 122 ) 


dn = l^n 


'5n+l 


(6.123) 


x^+l = < - 


(6.124) 


^+1 ~ Cn+lPn+l- 


(6.125) 


Q^n+1 ~ Q^n+1 


C(/3n ' 


(6.126) 


^+1 = f^+i + (6.127) 

Remark how the residues are generated directly from the residues of the no-sigma 
problem. 

4. The above procedure continues as long as |r| > e where e is some tolerance, otherwise 
stop. Thus 


|f| > e , continue. (6.128) 

We finally note that in the case of a hermitian matrix, i.e. = A, we must replace 
in the above formulas the transpose by hermitian conjugation. For example, we replace 
p^Apn by f^Ap. The rest remains unchanged. 
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Chapter 7 

Monte Carlo Simulation of 
Fermion Determinants 


As it is well known, simulation of fermion determinants and Pfaffians is crucial to 
lattice QCD, but as it trurns out, it is also crucial to all supersymmetric matrix models 
and quantum mechanical matrix models encountered or needed in matrix field theory, 
matrix/fuzzy geometry and matrix formulation of noncommutative geometry, supersym¬ 
metry and strings. As done before in this part of the book, the theoretical background 
will be kept to a minimum, otherwise we will stray too far afield, and we will mostly focus 
on practical problems. The main reference for this chapter is [^[^. See also [^[^. For 
some subtle details of the rational hybrid Monte Carlo algorithm see [5||^. 

7.1 The Dirac Operator 

The basic problem we want to solve in this section is to simulate the partition function 
of AA = 1 supersymmetric Yang-Mills matrix model in d = 4 dimensions given by 


■Z'ym = 


J dOde exp ^ 6 »(z[A 4 , ..] cJa[Ya,..] -h exp (-Seym [A]). (7.1) 


Ay 

T 


5bym = -^ Tr[X^,X, 


(7.2) 


The parameter 7 will be set to one and we may add to the bosonic Yang-Mills action a 
Chern-Simons term and a harmonic oscillator term with parameters a and vn? respectively. 
The spinors 9 and 9 are two independent complex two-component Weyl spinors. They 
contain the same number of degrees of Freedom as the four-component real Majorana 
spinors in four dimensions. The scalar curvature or fermion mass parameter is given by 
The above theory is only supersymmetric for a restricted set of values of the parameters 


7 , a, and See 11 and references therein for a discussion of this matter. 
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We have considered above the Dirac operator given by 

T> = 1X4^ — iX^ + ( 7 aXa — (TaX^ + C 


(7.3) 


The determinant of this Dirac operator is positive definite since the eigenvalues come in 
complex conjugate pairs [^. In d = 6 and d = 10 the determinant is, however, complex 
valued which presents a serious obstacle to numerical evaluation. In these three cases, 
i.e. for d = 4, 6,10, the supersymmetric path integral is well behaved. In d = 3 the 
supersymmetric path integral is ill defined and only the bosonic ” quenched” approximation 
makes sense. The source of the divergence lies in the so-called flat directions, i.e. the set 


of commuting matrices. See 10 and references therein. 


It is possible to rewrite the Dirac action in the following form (with X 34 = X^ + 1 X 4 
and X± = Xi± 1 X 2 ) 


TrOVe = Tr 


- Tr 


h{XM + i)0i + hx.e2 + 02^+01 + hi-Xti + 0^2 


X34dldl + X.h02 + X+hOl - Y3+d2d2 


(7.4) 


We expand the N x N matrices 9i , 62 and 9i , @2 as 








(7.5) 


A=1 


A=1 


The N X N matrices are defined by 

)ij ~ ^ ~ X{iA — 1) -|- JA- 

Then we find that 

Tr 9 V 9 = xiMiiXi + X1M12X2 + X2M21X2 + X2M22X2- 


(7.6) 


(7.7) 


The dimensional vectors xi, X 2 and xi) X2 are defined by (xa)A = 9^ and {xa)A = 
9^. The matrices are x defined by 


(A4ii)^^ = TrT^{X34 -b 0 ^" - TrX34T^T 


B 


-\ArpB 


(7.8) 


{M 


12 J 


= TrT^X-T^ - TrX-T^T^. 


(7.9) 


(M 


21j 


\AB 


= TrT^X+T^ - TrX+T^T 


ArpB 


(7.10) 


(M22)'^^ = TrT^{-X+ + + TrXg+T^T^. (7.11) 

We remark that 

TrT^XT^ - TrXT^T^ = ( 7 . 12 ) 
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Tr{T^)+T^ = = Sab , TrT^T^ = = 6 ab- (7-13) 

In the above two equations A and B are such that 

A = N{jA - 1) + iu , B = N{iB - 1) + Jb- (7.14) 

In summary, the Dirac operator in terms of the 2dimensional vectors x and x becomes 

TrOVe = xMx- (7.15) 

Next, we observe that the trace parts of the matrices Xa drop from the partition function. 
Thus the measure should read f dXaS(TrXa) instead of simply f dXa- Similarly, we 
observe that if we write 6 = 9q + r]\, then the trace part rj will decouple from the rest 
since 


Tre(^i[X4, ..]+aa[Xa,..]+Cy = TrOo {i[X ^,..] + ..] + ^^00 + im- (7.16) 

Hence, the constant fermion modes rja can also be integrated out from the partition func¬ 
tion and thus we should consider the measure f d9d95{Tr9a)d{Tr9a) instead of f d9d9. 
These facts should be taken into account in the numerical study. We are thus led to 
consider the partition function 

r ^ 

Zym = y n HTrXf,) detv exp ( - 5bym[Y]). (7.17) 


The determinant is given by 

detD = j d9d96{Tr9a)S{Tr9a) exp {Tr9V9) 


/ dxdxsi '^{Xa)Adi^jAjdi ^(Xa)A5iAiA ) exp (xMx) 

d ^A=l ' ^A=l ' 

j dxd^ exp (x'AT'x'). 


(7.18) 


The vectors Xai Xa are {N‘^ — 1)—dimensional. The matrix A4 is 2{N‘^ — 1) x 2(iV^ — 1) 
dimensional, and it is given by 

, S. J (7.19) 


We remark that 


= Cda0. 


(7.20) 


det V = det A4 . 


(7.21) 


Thus we must have 
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The partition function thus reads 


r 4 

Zym= / n exp ( - Sym[X]). 

M=1 


Sym[X] = 5bym[Y] + P[X] , V = -IndetAI . 


(7.22) 

(7.23) 


We will need 


d^BYIVI 

d{Xfj,)ij{t) 


-N-fY,[Xu,[X^,X,]]ji 


U=1 


= -N^ (^2X,X^X, - XlX^ - X^Xl 


(7.24) 




The determinant is real positive definite since the eigenvalues are paired up. Thus, we 
can introduce the positive definite operator A by 


A = (M )+Af . 


The action V can be rewritten as 


V = — Indet A. 

2 

The leap-frog algorithm for this problem is given by 


(7.25) 

(7.26) 




dSsYM ^ 

ld(X^)ij' 


n) + (V'/.)*i(ra) 


(7.27) 


{Xfj.)ij{n -|- 1 ) — {Xn)ij(n) -|- 6t{Pfj,)ji{n + 2 ) 


(P^),,(n + l) = (P^),,(n+ 


d^BYM 


2^ 2 [d{Xf,)ij 

The effect of the determinant is encoded in the matrix 

dV 

iv,h = 


(n -|- 1) -|- (V)t)ijf('u -|- 1) 


d{X,)., 

At a-i 


(7.28) 


(7.29) 


(7.30) 


From (7.23) and (7.30) we see that we must compute the inverse and the determinant of 


the Dirac operator at each hybrid Monte Carlo step. However, the Dirac operator is an 
M X M matrix where M = 2N‘^ — 2. This is proportional to the number of degrees of 
freedom. Since the computation of the determinant requires 0{M^) operations at best, 
through Gaussian elimination, we see that the computational effort of the above algorithm 
will be 0{N^). Recall that the computational effort of the bosonic theory is 0(iV3j]. 


4 Compare also with field theory in which the number of degrees of freedom is proportional to the volume, the 
computational effort of the bosonic theory is 0{V) while that of the full theory, which includes a determinant, 
is 0{V^). 
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7.2 Pseudo-Fermions and Rational Approximations 

We introduce pseudo-fermions in the usual way as follows. The determinant can be 
rewritten in the form 


det V = det Af 


(det A) 2 


J d(p'^d(J) exp{—(p'^A 


(7.31) 


Since M' and A are Af x M matrices organized as 2 x 2 matrices, with components 
given hy Af X Af matrices where A/ = Af/2, the vectors 4>'^ and cj) can be thought of as 
two-component spinors where each component is given by an Af—dimensional vector. We 
will write 


(p = 



(7.32) 


These are precisely the pseudo-fermions. They are complex-valued instead of Grassmann- 
valued degrees of freedom, and that is why they are pseudo-fermions, with a positive 
definite Laplacian and thus they can be sampled in Monte Carlo simulations in the usual 
way. 

Furthermore, we will use the so-called rational approximation, which is why the re¬ 
sulting hybrid Monte Carlo is termed rational, which allows us to write 


(det A) 2 


J d(p'^d(p exp{—(p'^r^{A)(j)). 


(7.33) 


The rational approximation r{x) is given by 


M 

~ r(x) = oo -I- ^ (7.34) 

X bfj 

o'=l 

The parameters oq, a^, and M are real positive numbers which can be optimized for 
any strictly positive range such as e < x < 1. This point was discussed at great length 
previously. 

Thus the pseudo-fermions are given by a heatbath, viz 

cP = r-\A)C, (7.35) 


where ^ is given by the Gaussian noise P{^) = exp(—.^■’■^). We write 


(p = 



^CF 

A -|- d(j 




(7.36) 


By using a different rational approximation r(x), in order to avoid double inversion (see 
below), we rewrite the original path integral in the form 


■Z’ym 



J d(p'^d(p 5{TrX^) exp ( - 5bym[X]) exp{-(p'^r{A)(p).{7.37) 
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The new rational approximation is defined by 


M 


X ~ r(x) = 


ao + ^ 


a=l 


X + bo 


The full action becomes 

5ym = 5'bym[Y] + P[Y]. 
The potential is given in this case by 
V = (/>+f(A)(^ 

M 

= ao(/>+(/) + aa(/>+(A + 6o-)~V 


( 7=1 

M 


M 


(7 = 1 


M 


— 4^ “ 1 “ ^ ^ OjQ^cf) G(j — ^ ^ G(jol 

CF=1 (T=\ 

M M 

= a{)(l)^(j) + aaG'^cj) = 07aG'^^(f)a‘ 

a=l 

This can be rewritten compactly as 

F = WacPa , Wa = aoi^M + a^iG^A. 

a=l 

The vectors (pseudo-fermions) Go- are defined by 

G(o = (A + 6o)"V- 

We introduce a fictitious time parameter t and a Hamiltonian H given by 

H = IttP^ + Q+Q + Sym 
— —TtP^ + Q'^Qci + Sym- 

The equation of motion associated with the matrix cj) is given by 

(h ^ 

- \Qa)A = 


d{(j)a)A 

dV 

d{(t)a)A 


M 


O'0{4>*a)A + «o-(G'*q)a 


cr=l 


= {Wo.)a- 


^«)a — 


dH 


d{Qa)A 
= {Q*a)A. 


(7.38) 

(7.39) 


(7.40) 

(7.41) 

(7.42) 

(7.43) 


(7.44) 

(7.45) 
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This last equation is equivalent to 

(C)a = iQa)A- 

The leap-frog algorithm for this part of the problem is given by 
iQa)A{n+ = iQa)A{n) - y(MY)A(n). 


(7.46) 


(7.47) 


{(t>ci)A{n + 1 ) = {(t>a)A{n) 6t{Q*^)A{n + -). 

{Qa)A{n -|- 1 ) = {Qa)A{n + 2 ^- ^i^a)A{n + 1 ). 

The first set of equations of motion associated with the matrices are given by 

dH 


(7.48) 

(7.49) 




tijij 


d{Xn)ij 

OSbym 




dV 


d{x^)ij d{x^) 

dSBYM 


lijij 

M 


d{X^)i 


n r+ r o 


, 7=1 

The effect of the determinant is now encoded in the matrix (the force) 

M 




cr=l 


The second set of equations associated with the matrices are given by 

dH 




fijij 


diP,.h 

= {P^l)ji■ 


(7.50) 


(7.51) 


(7.52) 


The leap-frog algorithm for this part of the problem is given by the equations (7.27), 
(7.28) and (7.29) with the appropriate re-interpretation of the meaning of 


7.3 More on The Conjugate-Gradient 

7.3.1 Multiplication by At and (At ' 


Typically we will need to find x , given v, which solves the linear system 

(A b)x = V. (7.53) 

We will use the conjugate gradient method to do this. The product Ax' involves the 
products Xi'x' and {A4')~^y', viz 


a'b' 


y = Mx o( 2 /„)^/=M„^ 


z = {M')+y o ^ (y^)s'- 


(7.54) 

(7.55) 
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Multiplication by A4': By using (7.19) we have 


a'b' 


(yJA' = -^a/3 (®/3)s' 


— {^ 13 ) 3 ' (^/ 3 )_b' +-^a /3 ‘^V V‘^V Y'' 

(7.56) 


M Af2, 




Recall that the primed indices run from 1 to N'^ — 1 while unprimed indices run from 1 
to N'^. We introduce then 


{ya)A = Mtf{xp)B 

= {xi3)b'+M^ f{xii)j^2. (7.57) 

We define 

{^ 0 ) 3 ' ~ (^ 0 ) 3 ' ’ i^0)N'^ ~ 0 ) B' j g! ' (7.58) 

Thus 

{ya)A = -Ada/f (4)s' 

The next definition is obviously then 

(2/1)t = (y«)T - (ya)iv2'^vv- (7.60) 


This leads immediately to 


m'b' 


(ya)T (x^)^/ -Mip^‘{x^)^i5i j {xp)j^, + {x^)j^'5i j ilM) 


N^B tj 




This is precisely (7.56). 

Next we introduce the N x N matrices Xa, ija associated with the vectors Xa and ya 
by the relations 


Ar2 

Xa = ^{Xa)AT^ 
A=1 

Thus 

N2 

, ya = '^{ya)AT^- 
A=l 

(7.62) 

{Xa}^ — TrXaT — (^Xa)jj^ij^ 

, {ya)A = TryaT^ = {ya)jAiA- 

(7.63) 

And 



{Xa)A = Trx„(r^)+ = {Xa)iAjA 

, {ya)A = TryaiT^)^ = {ya)iAjA- 

(7.64) 

We verify that 



M^p{xp)B ■■ 

= TrT^{Vx)a. 

(7.65) 

By comparing with 



{ya)A = 

TrT^{y)a, 

(7.66) 
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we get 

= Vx. 

We recall the Dirac operator 

+ i X.-X^ \ 

\ X+-XR -Xt, + {X§,)+ + i )■ 

Thus = Vx is equivalent to 

{yi)ij — (VloL^a^ji — [^34?^i]_77 T [^—T 


{y2^ij — (J^2(y.^OL)ji — [^345^2]j2 T T ^{S^2)ji‘ 

For completeness we remark 

{ya)AMtf{xp)B=TTr^{Vx)^. 

Multiplication by As before the calculation of 

(^)a' = 

can be reduced to the calculation of 

with the definitions 

~ ^yy)B' ’ {yi3)N‘^ — ~iyy)B'^ig'3g> ■ 
a' i^a)A' • 

The next step is to note that 

M}l^{yp)B = TrT^{V+y)^. 

The hermitian conjugate of the Dirac operator is defined by the relation 

^34 - - (^+)* ^ 

A* - (A^)* -Xl + {Xi^Y + i )■ 

Hence 

f' = D+y. 

Equivalently 

— ('Playa)i* ~ ~[^34)yi]ii ~ [X^,y2]ji T C(yi)ii' 

{Z2)ij — {'^2ayci)ji ~ [^SiiV^lji ~ \X_,y]\ji + ^{y2)ji- 


(7.67) 

(7.68) 

(7.69) 

(7.70) 

(7.71) 

(7.72) 

(7.73) 

(7.74) 

(7.75) 

(7.76) 

(7.77) 

(7.78) 

(7.79) 

(7.80) 



CP and MFT, B.Ydri 


208 


7.3.2 The Fermionic Force 


Also we will need to compute explicitly in the molecular dynamics part the fermionic 
force (with (Af'+)a/3 = 


M 


(n 




n r+ r n 

V ^ Cro-/3 


(7 = 1 

M 


‘d{X, 


(i-JV 






M 


a=l 

M 


E (E/: 

(7=1 


dM 


'^<^0 E 


dM 


pa 


(T = l 


pa 


G„ 


M 




dM' 


Go 


Pa 


cr=l 


d{X, 


Go 


tijij 


«(Wy« 

The vectors F^a and are defined by 

F.a = M'o^pG^p , F+„ = 

We can expand the bosonic matrices X^ similarly to the fermionic matrices as 


(7.81) 


(7.82) 


Equivalently 


V 


Reality of the bosonic matrices gives 


>^A3A 


V 


Ar2 

EYt^. 

(7.83) 

A=1 

, A — N (lA — 1) + j A- 

(7.84) 

:^r , A = N{jA-i) + iA. 

(7.85) 


Hence we have 


r/ ^ K) 


/J-f^AJA 

M 


E 


(7=1 

M 


dM 


l3a 


dX^ 

M 


M 


E“-f5 


dM 


Pa 


Go 


( 7=1 


dx^ 


E«-('4)*-E«-'7'^ 


A 

Gjl' 


a=l 


a=l 


(7.86) 


The definition of 7))^ is obviously given by 


-t-A _ Tp+ 

fn-ii — 


dM 


Pa 


Go 


'(7fJ. ^ (7p QX^ 


(7.87) 


For simplicity we may denote the derivations with respect to X^ and X-^ by d and d 
respectively. As before we introduce the vectors in the full Hilbert space: 


(Ccro)^' — (G(ja)]^' ) (Gaa}N^ — (Gaa)/ j / ■ 


(7.88) 
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era) era) 

A straightforward calculation gives 


{Faa)N^ — {Faa)]^'j■ 

( 7 . 89 ) 

Ab' = {FA)a{MA^^{GAb. 

( 7 . 90 ) 

AB' = {F:AAd{MA^^{GAB. 

( 7 . 91 ) 

F+ 

dX^ 

( 7 . 92 ) 


Explicitly we have 


We use the result 


QJ\^CD 


_ rj. rj,D 

dX^ 


where 


Mil = X34 , Mi2 = A_ , M21 = A+ , M22 = -Y3+. 
We also introduce the matrices F and G given by 


Fa = Y,{F^)aT^ , Ga = Y,{G^)aT^ 


The reverse of these equations is 


(f«)a = rrF,(r^)+ , {Ga)A = rrG«(r^)+. 


We use also the identity 


Y.FhF)t, 


A direct calculation yields then the fundamental results 

'TA _ pOi -I 'tA _ rri^ 


= Tr^^[G^a,F:^] , %i = 


Explicitly we have 


( 7 . 93 ) 

( 7 . 94 ) 

( 7 . 95 ) 

( 7 . 96 ) 

( 7 . 97 ) 

( 7 . 98 ) 

( 7 . 99 ) 


tA = [g^i,f:,],^,^ + [g<. 2 ,e;i]mm , rA = [g.i,f; 2 ].am + [g. 2 ,e;i]wa- ( 7.100) 

TA 2 = -i[Gai,F:^]j^,^+i[G^2,F:iUA , rA2 = -i[GauF:2hAjA+i[Ga2,F:,],^,i,7.101) 
TAs = [G,i,f:,],^,^ - [G^2,F:2]JA^A , rA = [G^uFAh^j^ - [Ger2,F:2]^^J^. ( 7 . 102 ) 
TA = i[G.i,FA]j^,^ + i[G^2,E;2 ],Aa , rA = i[G^i,FA]iAjA + i[Ga2,FA]^^jAFm 
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7.4 The Rational Hybrid Monte Carlo Algorithm 


7.4.1 Statement 

In summary the rational hybrid Monte Carlo algorithm in the present setting consists 
of the following steps: 

1. Initialization of X: Start X (the fundamental field in the problem) from a random 
conhguration. 

2. Initialization of Other Fields: 

• Start P (the conjugate field to X) from a Gaussian distribution according to 

the probability exp(—rrP^/2). Both X^ and are hermitian N x N matrices. 

• Start ^ from a Gaussian distribution according to the probability exp(— 

• Calculate (j) (the pseudo-fermion) using the formula (7.36). This is done us¬ 
ing the conjugate gradient method (see below). The coefficients c and d are 
computed using the Remez algorithm from the rational approximation of 

• Start Q (the conjugate field to 4>) from a Gaussian distribution according to 
the probability exp(—Q+Q). The spinors Qa and as well as ^a, are (Y^ — 
1)—dimensional complex vectors. 

3. Molecular Dynamics: This consists of two parts: 

• Pseudo-Fermion: We evolve the pseudo-fermion (j) and its conjugate field Q 
using the Hamilton equations (7.47), (7.48) and (7.49). This is done using 


the conjugate gradient method which, given the input cj), computes as output 
the spinors given by equation (7.42) and the spinor W given by equation 


(7.44). On the other hand, in the initialization step above we call the conjugate 
gradient method with input ^ to obtain the output (p = W*. Here and below, the 
coefficients a and b are computed using the Remez algorithm from the rational 
approximation of 

Gauge Field: 


We evolve and using the Hamilton equations (7.27), 


(7.28) and (7.29). This requires the calculation of the boson contribution to the 


force given by equation (7.24) and the fermion contribution given by equation 


(7.51). The numerical evaluation of the fermion force is quite involved and uses 
This requires, among other things, the calculation of the 
= M'G, 


the formula ( |7.86[ ) 
spinors G. 


and Per = M. Ga using the conjugate gradient. 

4. Metropolis Step: After obtaining the solution {X{T), P{T),(p{T),Q{T)) of the 

molecular dynamics evolution starting from the initial configuration (A(0), P(0), 0(0), Q(0)) 
we compute the resulting variation API in the Hamiltonian. The new configuration 
is accepted with probability 


probability = min(l, exp(—Ail)). 


(7.104) 


5. Iteration: Repeat starting from 2. 
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6. Other Essential Ingredients: The two other essential ingredients of this algorithm 
are: 


(a) Conjugate Gradient: This plays a fundamental role in this algorithm. The 
multimass Krylov space solver employed here is based on the fundamental equa¬ 
tions (6.117)-(6.128). This allows us to compute the for all a given by equa¬ 
tion (7.42) at once. The multiplication by A is done in two steps: hrst we 
multiply by Ai then we multiply by (A4 This is done explicitly by reducing 
(7.54) to (7.69)-(-(7.70) and reducing (7.55) to (7.79)-)-(7.80). Here, we obviously 
need to convert between a given traceless vector and its associated matrix and 
vice versa. The relevant equations are (7.58), (7.60) and (7.64). 


(b) Remez Algorithm: This is discussed at length in the previous chapter. We 
only need to re-iterate here that the real coefficients c, d, for the rational ap¬ 
proximation of and a and b, for the rational approximation of as 

well as the integer M are obtained using the Remez algorithm of [^. The integer 
M is supposed to be determined separately for each function by requiring some 
level of accuracy whereas the range over which the functions are approximated 
by their rational approximations should be determined on a trial and error basis 
by inspecting the spectrum of the Dirac operator. 


7.4.2 Preliminary Tests 

1. The rational approximations: The first thing we need to do is to fix the param¬ 

eters a, b, c and d of the rational approximations by invoking the Remez algorithm. 
For a tolerance equal 10“^ and over the interval [0.0004,1] with precision 40 we 
have found that the required degrees of the rational approximations, for and 

are M = 6 and Mq = 5 respectively; M is the minimum value for which the 
uniform norm \r — /|oo = max|r — /| is smaller than the chosen tolerance. We can 
plot these rational approximations versus the actual functions to see whether or not 
these approximations are sufficiently good over the fixed range. 

2. The conjugate gradient: The conjugate gradient is a core part in this algo¬ 
rithm and it must be checked thoroughly. A straightforward check is to verify that 
(A -|- bcj)G(j = (p for all values of a. We must be careful that the matrix-vector 
multiplication A.G^ does not vanish. Thus the no-sigma problem should be defined, 
not with zero mass bu = 0, but with the smallest possible value of the mass ba 
which presumably corresponds to the least convergent linear system. In the results 
included below we fix the tolerance of the conjugate gradient at 10“^. 

3. The decoupled theory: This is the theory in which the gauge field {X^)ij and 
the pseudo-fermion field are completely decoupled from each other. This is then 
equivalent to the bosonic theory. This is expected to be obtained for sufficiently 
large values of the fermion mass In this theory the fermion field behaves exactly 
as a harmonic oscillator. The decoupled theory can also be obtained, both in the 
molecular dynamics part and the hybrid Monte Carlo part which includes in addition 
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the metropolis step, by setting 

Co = , tti = Ci = 0. (7.105) 

\/ao 

In this case the pseudo-fermions decouple from the gauge fields and behave as har¬ 
monic oscillators with period T = 2tt. The corresponding action should then be 
periodic with period T = vr. 

4. The molecular dynamics: We can run the molecular dynamics on its own to 
verify the prediction of the decoupled theory. In general, it is also useful to monitor 
the classical dynamics for its own interest and monitor in particular the systematic 
error due to the non-conservation of the Hamiltonian. 


In the molecular dynamics we need to fix the time step dt and the number of iter¬ 
ations n. Thus we run the molecular dynamics for a time interval T = n.dt. We 
choose dt = 10“^ and n = 2^^ — 2^^. Some results with N = A are included in figures 
(7.1) and (7.2). We remark that the drift in the Hamiltonian becomes pronounced as 
^ 0. This systematic error will be canceled by the Metropolis step (see below). 

We can use the molecular dynamics to obtain an estimation of the range of the 
rational approximations needed as follows. Starting from = 0, we increase the 
value of ^ until the behavior of the theory becomes that of the decoupled (bosonic) 
theory. The value of ^ at which this happens will be taken as an estimation of the 
range. In the above example (figures (7.1) and (7.2)) we observe that the pseudo¬ 
fermion sector becomes essentially a harmonic oscillator around the value ^ = 10. 
Thus a reasonable range should be taken between 0 and 10. 


5. The metropolis step: In general two among the three parameters of the molecular 
dynamics (the time step dt, the number of iterations n and the time interval T = ndt) 
should be optimized in such a way that the acceptance rate is fixed, for example, 
between 70 and 90 per cent. We fix n and optimize dt along the line discussed in 
previous chapters. We make, for every N, a reasonable guess for the value of the 
number of iterations n, based on trial and error, and then work with that value 
throughout. For example, for N between N = A and N = 8, we found the value 
n = 10, to be sufficiently reasonable. 


Typically, we run Tther + Tmeas Monte Carlo steps where thermalization is supposed 
to occur within the first Tther steps which are discarded while measurements are per¬ 
formed on a sample consisting of the subsequent Tmeas configurations. We choose, 
for Y = 4 — 8, Tther = 2^^ and Tmeas = 2^^. We do not discuss in the following 
auto-correlation issues while error bars are computed using the jackknife method. 
As always, we generate our random numbers using the algorithm ran2. Some ther- 
malized results for N = A, 8 and a = rv? = ^ = 0 are shown on figure (7.3). 


There are two powerful tests (exact analytic results) which can be used to calibrate 
the simulations. We must have the identities: 


We must have on general grounds the identity: 

< exp(—AH) >= 1. 


(7.106) 
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• We must also have the Schwinger-Dyson identity: 

< 47 YM > + < 3aCS > + < 2m^RO > + < ^COND >= {d + 2){N‘^ - ^'^.107) 


We have included for completeness the effects of a Chern-Simons term and a 
harmonic oscillator term in the bosonic action. This identity is a generalization 


of (2.35) where the definition of the condensation COND can be found in 11 


This identity follows from the invariance of the path integral (7.17) under the 
translations —)■ + eY^. For the flat space supersymmetric model for 

which ^ = 0 the above Schwinger-Dyson identity reduces to 


< 47YM > + < 3aCS > + < 2m^RO >= (d + 2){N^ - 1). (7.108) 


As 


an illustration some expectation values as functions of a for N 
0 are shown on figure (7.4). 


4 and = 


6. Emergent geometry: We observe from the graph of TrY^ that something possibly 
interesting happens around a ~ 1.2. In fact, this is the very dramatic phenomena 
of emergent geometry which is known to occur in these models when there is a non¬ 
zero mass term (here the Chern-Simons term) included. This can be studied in great 
detail using as order parameters the eigenvalues distributions of Y 4 and Y^. In the 
matrix or Yang-Mills phase (small values of a) the matrices Y^ are nearly commuting 
with eigenvalues distributed uniformly inside a solid ball with a parabolic eigenvalues 
distributions, or a generalization thereof, whereas in the fuzzy sphere phase (large 
values of a) the matrix Y 4 decouples from Y^ and remains distributed as in the 
matrix phase, while the matrices Yq will be dominated by fluctuations around the 
SU{2) generators in the spin [N — l)/2 irreducible representation. 


7. Code: The attached code can be used to study the above emergent geometry effect, 
and many other issues, in great detail. On an Intel dual core E4600 processor 
(2.40GHz) running Ubuntu 14.04 LTS this codes goes as . 
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Figure 7.1 
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Bosonic action 



0 1000 2000 3000 4000 5000 6000 7000 8000 

molecular dynamics time 


total Hamiltonian 



Bosonic kinetic term 


pseudo-fermion Hamiltonian 




Figure 7.2: 
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thermalized observables for a =m^=0 and N=4 
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Figure 7.3 
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Figure 7.4: 
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7.5 Other Related Topics 

Many other important topics, requiring techniques similar to the ones discussed in this 
chapter, and which have been studied extensively by the Japan group, includes: 

1. IKKT models: The extension of the problem to higher dimensions; for example 
d = 6; but in particular d = 10 which is the famous IKKT model which provides 
a non-perturbative definition of string theory, is the first obvious generalization. 
However, the determinant in these cases is complex-valued which makes its numerical 
evaluation very involved. 

2. Cosmological Yang-Mills matrix models: In recent years a generalization from 
Euclidean Yang-Mills matrix models to Minkowski signature was carried out with 
dramatic, interesting and novel consequences for cosmological models. The problem 
with the complex-valued Pfaffians and determinants is completely resolved in these 
cases. 

3. Quantum mechanical Yang-Mills matrix models: The extension of Yang- 
Mills matrix models to quantum mechanical Yang-Mills matrix models, such as the 
BESS and BMN models which also provide non-perturbative definitions of string 
theory and M-theory, involves the introduction of time. This new continuous variable 
requires obviously a lattice regularization. There is so much physics here relevant 
to the dynamics of black holes, gauge-gravity duality, strongly coupled gauge theory 
and many other fundamental problems. 

4. The noncommutative torus: The noncommutative torus provides another, seem¬ 
ingly different, non-perturbative regularization of noncommutative field theory be¬ 
sides fuzzy spaces. The phenomena of emergent geometry is also observed here, as 
well as the phenomena of stripe phases, and furthermore, we can add fermions and 
supersymmetry in an obvious way. The connection to commutative theory and the 
commutative limit is more transparent in this case which is an advantage. 

5. Supersymmetry: A non-perturbative definition of supersymmetry which allows 
Monte Carlo treatment is readily available from the above discussed, and much 
more, matrix models. These non-lattice simulations seem very promising to strongly 
coupled gauge theories. 
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Chapter 8 

U{1) Gauge Theory on the Lattice: 
Another Lattice Example 


In this chapter we will follow the excellent pedagogical textbook especially on 
practical detail regarding the implementation of the Metropolis and other algorithms to 
lattice gauge theories. The classic textbooks [2||^ were also very useful. 


8.1 Continuum Considerations 


A held theory is a dynamical system with N degrees of freedom where N —>■ oo. 
The classical description is given in terms of the Lagrangian and the action while the 
quantum description is given in terms of the Feynman path integral and the correlation 
functions. In a scalar held theory the basic held has spin j = 0 with respect to Lorentz 
transformations. Scalar held theories are relevant to critical phenomena. In gauge theories 
the basic helds have spin j = 1 (gauge vector helds) and spin j = 1/2 (fermions) and they 
are relevant to particle physics. The requirement of renormalizability restricts severely 
the set of quantum held theories to only few possible models. Quantum electrodynamics 
or QED is a renormalizable held theory given by the action 





- M)V’ - 


( 8 . 1 ) 


The 7 ^ are the famous 4x4 Dirac gamma matrices which appear in any theory containing 
a spin 1/2 held. They satisfy {7'^,7^} = 2?]^'^ where = diag(l, —1, —1, —1). The 
electromagnetic held is given by the U{1) gauge vector held with held strength = 
d^Ay — dyA^ while the fermion (electron) held is given by the spinor held il) with mass M. 
The spinor -i/ is a 4—component held and The interaction term is proportional 

to the electric charge e given by the last term —eip^^ipA^. The Euler-Lagrange classical 
equations of motion derived from the above action are precisely the Maxwell equations 
d^F^'^ = with = et/> 7 ^V' and the Dirac equation (iq^S^ — m — e^fj,A^)'ip = 0. The 
above theory is also invariant under the following U{1) gauge transformations 
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—;► A^ + d^A , 'll) —^ exp(-ieA)'0 , ip —^V’exp(ieA). ( 8 . 2 ) 

The Feynman path integral is 

Z = j PA^P^PV'exp(i5QED). (8.3) 

Before we can study this theory numerically using the Monte Carlo method we need to: 

1. Rotate to Euclidean signature in order to convert the theory into a statistical field 
theory. 

2. Regularize the UV behavior of the theory by putting it on a lattice. 

As a consequence we obtain an ordinary statistical system accessible to ordinary sampling 
techniques such as the Metropolis algorithm. 

We start by discussing a little further the above action. The free fermion action in 
Minkowski spacetime is given by 

Sp = [ d‘^xip{x){i'y^d^ — M)ip{x). (8.4) 


This action is invariant under the global U{1) transformation ip{x) —)■ Gip{x) and 
ip{x) —)• ip{x)G~^ where G = exp(—iA). The symmetry U{1) can be made local (i.e. 
G becomes a function of x) by replacing the ordinary derivative with the covariant 
derivative + ieA^ where the 17(1) gauge field A^ is the electromagnetic 4—vector 

potential. The action becomes 

Sp = J d‘^xip{x){i'j'^Dfj, — M)ip{x). (8.5) 

This action is invariant under 

Ip —^ G{x)ip , ip —> ipG~^{x), (8.6) 


provided we also transform the covariant derivative and the gauge field as follows 


D^^GD^G-^ ^ A^^G{x)A^G-\x)-"-G{x)d^G-\x). (8.7) 

Since and G{x) = exp(—zA(x)) commute the transformation law of the gauge field 
reduces to —)■ A^ + d^A/e. The dynamics of the gauge field A^ is given by the 

Maxwell action 

Sg = -\J = d^A, - d,A^. (8.8) 


This action is also invariant under the local 17(1) gauge symmetry A^ —)■ A^ + d^A/e. 
The total action is then 


Sqed = -^ 




dP^xip{x){i'^^Dfj_ — M)ip{x). 


(8.9) 
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This is precisely (8.1). 


The Euclidean action is obtained by i) making the replacement xq —> — 1 x 4 wher¬ 
ever xo appears explicitly, ii) substituting 'ip^{x) = 'ijj{x, X 4 ) for il){x) = t), iii) making 

the replacements AP —> iA^ and —?■ iD^ and iv) multiplying the obtained expression 
by —i. Since in Euclidean space the Lorentz group is replaced by the 4—dimensional 
rotation group we introduce new 7 —matrices 7 ^ as follows = —i 7 *. They 

satisfy { 7 ^, 7 ,^} = “2^5^u- The fermion Euclidean action is then 


= / d^xi;^{x){j^D^ + M)V’^(x). (8.10) 


Similarly the Euclidean action is obtained by i) making the replacement xq —> — 1 x 4 
wherever xq appears explicitly, ii) making the replacement AP —> iA 4 and iii) multiplying 
the obtained expression by —i. We can check that = 0, 1, 2,3 will be replaced 

with = 1,2, 3,4. The gauge Euclidean action is then 


^Eucl _ _ 

A 


d^xFl,. 


( 8 . 11 ) 


The full Euclidean action is 

oEucl ^ 


QED = 4 / ^ + / d xV’ (x)(7^ + M)^ (x). 


( 8 . 12 ) 


We will drop the labels Eucl in the following. 


8.2 Lattice Regularization 

8.2.1 Lattice Fermions and Gauge Fields 

Free Fermions on the Lattice: The continuum free fermion action in Euclidean 4d 
spacetime is 

Sf = y d‘^x^®(x)( 7 ®d;, + M)V’^(x). (8.13) 

This has the symmetry and the symmetry ^when M = 0. The 

associated conserved currents are known to be given by = ' 07^'0 and 
where 75 = 71727374. It is also a known result that in the quantum theory one can 
not maintain the conservation of both of these currents simultaneously in the presence of 
gauge fields. 

A regularization which maintains exact chiral invariance of the above action can be 
achieved by replacing the Euclidean four dimensional spacetime by a four dimensional 
hypercubic lattice of sites. Every point on the lattice is specified by 4 integers which 
we denote collectively by n = (ni, n 2 , ns, 714 ) where n 4 denotes Euclidean time. Clearly 
each component of the 4—vector n is an integer in the range —Y/2<n^<Y/2 with N 
even. The lattice is assumed to be periodic. Thus x^ = an^ where a is the lattice spacing 
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and L = aN is the linear size of the lattice. Now to each site x = an we associate a spinor 
variable ipln) = 'ip{x) and the derivative d^ijj{x) is replaced by 


df,ip{x)—= — 

a la 


+ /i) — 'ip{n — fi) 


(8.14) 


The vector fi is the unit vector in the //—direction. With this prescription the action 
(8.13) becomes (with M = aM and if = 


Sf 


Kai3{n,m) 


EEEE ifa{n)Kai3{n,m)i>i3{m) 

n m OL f3 


y~^(7rt)a/3 


^m,n+/l I T M6oil3^m,n- 


(8.15) 


U (1) Lattice Gauge Fields: The free fermion action on the lattice is therefore given 
by 

Sf = M EE ^a(n)V’«(n) 

n a 

- )EEEE 

n a p fL 

(8.16) 


{lfi)ap'fpa{n + fL)'4’p{n) - i-f^)ai3'4’a{n)^fp{n + ff) 


This action has the following global U{1) symmetry 

ifain) —> G'ifain) , ipa{n) —S' 'ifa{n)G~^. (8-17) 

The phase G = exp(—iA) is an element of U{1). By requiring the theory to be invariant 
under local 17(1) symmetry, i.e. allowing G to depend on the lattice site we arrive at a 
gauge invariant fermion action on the lattice. The problem lies in how we can make the 
bilinear fermionic terms (the second and third terms) in the above action gauge invariant. 

We go back to the continuum formulation and see how this problem is solved. In the 
continuum the fermionic bilinear 'il){x)'ip{y) transforms under a local 17(1) transformation 
as follows 


'tf{x)i;{y) — >'if{x)G ^{x)G{y)'ip{y). (8.18) 

This bilinear can be made gauge covariant by inserting the Schwinger line integral 

17(x,2/) = (8.19) 

which transforms as 

U(x, y) —^ G{x)U{x, y)G~\y). (8.20) 

Therefore the fermionic bilinear 

'if{x)U{x,y)'if{y) = 


( 8 . 21 ) 
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is U(l) gauge invariant. For y = x + e we have 

[/(x,x + e) = (8.22) 

We conclude that in order to get local ?7(1) gauge invariance we replace the second and 
third bilinear fermionic terms in the above action as follows 

i}{n){r - 7 ^)V’(n + jl) —^ •0(n)(r - 7^)C/n,n+A'0(’^ + A) 

i}{n + fx){r - 7 ^)V’(n) —> •0(n + /i)(r - 7 ^)C/n+/i,nV’(n). (8.23) 

We obtain then the action 

Sf = M EE ipa{n)'tpa{n) 

n a 

- 5EEEE 

n Oi (3 (I 

(8.24) 


{l^l)a|3'4’ci{n + fl)Un+fi,n1Pl3{n) - {'y^i)al3'tpa{n)Un,n+fLi’l3{n + fl) 


The U{1) element Un,n+[i lives on the lattice link connecting the two points n and n + fi. 
This link variable is therefore a directed quantity given explicitly by 


Cn,n+A = = U^{n) , [/„+A,n = Kn+f. = 


(8.25) 


The second equality is much clearer in the continuum formulation but on the lattice it 
is needed for the reality of the action. The phase (t>fi{n) belongs to the compact interval 
[0,27r]. Alternatively we can work with Afj^(n) defined through 


(pfj.{n) = eaA^{n). 


(8.26) 


Let us now consider the product of link variables around the smallest possible closed loop 
on the lattice, i.e. a plaquette. For a plaquette in the fj, — f plane we have 


Up = U^,{n) = C/^(n)C/,(n + fi)U+{n + L)F+(n). 
The links are path-ordered. We can immediately compute 


Up = U^,{n) = ,F^, = - 

a 

In other words in the continuum limit a 


1 


^ EE ^-l{U,uin) + U+M) 

^ n fiKu *- 

The U{1) gauge action on the lattice is therefore 


A,y{n + fl) - A,y{n) - A^{n + v) + A^{n) 
0 we have 

EE^'- 


a 

T 


(8.27) 


(8.28) 


(8.29) 


n 


e p L ^ 


(8.30) 
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8.2.2 Quenched Approximation 

The QED partition function on a lattice A is given by 

z = J VU (8.31) 

The measures are defined by 

4 

vu = nn dU^{n) , V'ijj = d'ijj{n) , 'D\jj = d'4){n). (8.32) 

nGA/i=l nGA nGA 

The plaquette and the link variable are given by 

= U^{n)U,{n + A)t/+(n + P)U+{n) , U^{n) = (8.33) 

The action of a 17(1) gauge theory on a lattice is given by (with /3 = 1/e^) 

Sg[U] = dj; [l-^(C/^,(n) + C/+(n))| =/3j; j;Re[l-C/;..(n)|.(8.34) 
n&AfJ.<u L -I neAM<!^ 

The action of fermions coupled to a 17(1) gauge field on a lattice is given by 

5'f[17,V’,^] = EEEE lfa{n)T>a/i{U)n,m‘ifl3{m). (8.35) 

a l3 n m 

Where 

'd^afi{U)n,m — M6a/3dn,m dn,m+fi 17n+/i,n T dm,n+(i Un,n+fi- (8.36) 

Using the result 

ypViT'V; e“^“^/5E„E„7a(n)»../3(t/)n,™b/3M = detT>„/3(C/)n,m. (8.37) 

The partition function becomes 

Z = jvu deiV^p{U)n,m (8.38) 

At this stage we will make the approximation that we can set the determinal equal 1, i.e. 
the QED partition function will be approximated by 

Z = j VU (8.39) 

This is called the quenched approximation. 
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8.2.3 Wilson Loop, Creutz Ratio and Other Observables 

The first observable we would like to measure is the expectation value of the action 
which after dropping the constant term is given by 

<SG[t/]> = -/3 EE < Re > . (8.40) 

nSA ^J.<u 

The specific heat is the corresponding second moment, viz 

a = <Sg[UY > - <Sg[U]>^ . (8.41) 

We will also measure the expectation value of the so-called Wilson loop which has a length 
I in one of the spatial direction (say 1) and a width J in the temporal direction 4. This 
rectangular loop C is defined by 

Wg[U] = S{n, n + /i)r(n + li,n + li + J4)5+(n + n + li + J4)r+(n, n + J4](8.42) 


The Wilson lines are 
i-i 


i-i 


S{n, n + li) = Ui{n + fi) , S{n + J4, n -|- li + J4) = Ui{n -|- fi -|- J4). (8.43) 


i=0 

The temporal transporters are 

J-i 


i=0 


J-i 


T{n + li,n + li + J4) = UA{n + 11+ jl) , T{n, n + J4) = J] Ui{n + jl). (8.44) 

j=0 j=0 


The expectation value of will be denoted by 

/ VU Wg[U] e-^G[U] 


W[I,J] = 


fvu e-^G[u] 


(8.45) 


By using the fact that under 4’^{n) ——^^(n), the partition function is invariant while 
the Wilson loop changes its orientation, i.e. lTc'[C] —)• Wc\U\^^ we obtain 


W[I, J] =< Re Wg[U] > . 


(8.46) 


It is almost obvious that in the continuum limit 

W[I, J] W[R, T] =< exp(ie ^ dx^A^) > . (8.47) 

The loop C is now a rectangular contour with spatial length R = la and timelike length 
T = Ja. This represents the probability amplitude for the process of creating an infinitely 
heavy, i.e. static, quark-antiquark pair at time t = 0 which are separated by a distance 
R, then allowing them to evolve in time and then eventually annihilate after a long time 
T. 


^For 1/(1) we should really speak of an electron-positron pair. 
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The precise meaning of the expectation value (8.46) is as follows 

i=l ^ n ' 


(8.48) 


In other words we also take the average over the lattice which is necessary in order to 
reduce noise in the measurment of the Creutz ratio (see below). 

The above Wilson loop is the order parameter of the pure 17(1) gauge theory. For 
large time T we expect the behavior 


W[R,T ^ oo] 


g-V{R)T ^ ^-aV(R)J 


(8.49) 


where V{R) is the static quark-antiquark potential. For strong coupling (small /3) we can 
show that the potential is linear, viz 


V{R) = aR. (8.50) 

The constant a is called the string tension from the fact that the force between the quark 
and the antiquark can be modeled by the force in a string attached to the quark and 
antiquark. For a linear potential the Wilson loop follows an area law W[R, T] = exp(—uA) 
with A = a^IJ. This behavior is typical in a confining phase which occurs at high 
temperature. 

For small coupling (large /3,low temperature) the lattice 77(1) gauge field becomes 
weakly coupled and as a consequence we expect the Coulomb potential to dominate the 
static quark-antiquark potential, viz 

V{R) = |. (8.51) 

Hence for large R the quark and antiquark become effectively free and their energy is 
simply the sum of their self-energies. The Wilson loop in this case follows a perimeter law 
W[R,T] =exp(-2er). 

In summary for a rectangular R x T Wilson loop with perimeter P = 2{R + T) and 
area A = RT we expect the behavior 

W[R,T] = , confinement phase. (8.52) 


VF[7?, T] = e , coulomb phase. 
In general the Wilson loop will behave as 

W[R,T] = 


(8.53) 


(8.54) 


The perimeter piece actually dominates for any fixed size loop. To measure the string 
tension we must therefore eliminate the perimeter behavior which can be achieved using 
the so-called Creutz ratio defined by 

’ IF[/, J-1]IT[/-1, J]' 



(8.55) 
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For large loops clearly 


X{I, J) = aV. 


(8.56) 


This should holds especially in the confinement phase whereas in the Coulomb phase we 
should expect x(/, J) ~ 0. 

The 1x1 Wilson loop 1T(1,1) is special since it is related to the average action per 
plaquette. We have 


W[l, 1] =< Re Ui{n)U 4 {n + i)U^{n)U^{n + 4) > . 
Next we compute straightforwardly 


(8.57) 


(8.58) 


n fi<i' 


Clearly all the planes fju are equivalent and thus we should have 

f)]y> y 

= 6^<|l-ReC/,4(n)]> 


6 < [1 — Re Ui 4 {n)] > 

n 

6^] < [1 - Re Ui{n)Ui{n + i)U^{n)U^{n + 4)] > . (8.59) 


Remark that there are N^Nt lattice sites. Each site corresponds to 4 plaquettes in every 
plane nu and thus it corresponds to 4 x 6 plaquettes in all. Each plaquette in a plane 
corresponds to 4 sites and thus to avoid overcounting we must divide by 4. In summary 
we have 4 x 6 x x Nt/4: plaquettes in total. Six is therefore the ratio of the number 
of plaquettes to the number of sites. 

We have then 

1 dlnZ 1 


6N^Nt 8/3 ^ N^Nt 


y] < Re Ui{n)U 4 {n + i)U^{n)U^{n + 4) >(8.60) 


We can now observe that all lattice sites n are the same under the expectation value, 
namely 

1 din Z 

- GN^Nt ^ 1-< Re 17i(n)C4(n +i)C 4 +(n)C/i+(n + 4) > . (8.61) 

This is the average action per plaquette (the internal energy) denoted by 

1 dlnZ . .. _ 


F = - 


emNT dp 


= 1-W[1,1]. 


(8.62) 


8.3 Monte Carlo Simulation of Pure U{1) Gauge 
Theory 

8.3.1 The Metropolis Algorithm 

The action of pure U(l) gauge theory, the corresponding partition function and the 
measure of interest are given on a lattice A respectively by (with /? = 1/e^) 


Sg[U] = P EERe 


nsA /i<!7 


(8.63) 
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z = j VU e“^G[C. ( 8 . 64 ) 

4 

VU = nn dU^{n). (8.65) 

nGA ^=1 

The vacuum expectation value of any observable O = 0(U) is given by 

< O >= ^ j VU O ( 8 . 66 ) 

For ?7(1) gauge theory we can write 

= (8.67) 

Hence 

4 

VU = nn d(j)fj^{n). ( 8 . 68 ) 

nGA ^=1 

We will use the Metropolis algorithm to solve this problem. This goes as follows. Starting 
from a given gauge field configuration, we choose a lattice point n and a direction //, 
and change the link variable there, which is U^{n), to U^{n)'. This link is shared by 6 
plaquettes. The corresponding variation of the action is 

AScp^in))] = Sg[U']-Sg[U]. (8.69) 

The gauge field configurations U and U' differ only by the value of the link variable 
U^{n). We need to isolate the contribution of Uf^{n) to the action Sg- Note the fact that 
= Uufi- We write 

*5g[C] = j;(C/^.(n) + C/+(n)). (8.70) 

The second term is 

- ^ ^[/^(n)C/^(ra+ /!)[/+(ra + z>)C/+(n). (8.71) 

n&AfJ.<u n&A^l<l' 

In the ^ — u plane, the link variable U^{n) appears twice corresponding to the two lattice 
points n and n — v. For every ^ there are three relevant planes. The six relevant terms 
are therefore given by 

" f ^ " 2^( U^{n)U„{n + /!)[/+ (n + !>)[/+ (n) 

[/+ (n)[/+ (n - i')Ufj,{n - i))Uu{n -v + fi) \ + ...(8.72) 


+ 
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By adding the complex conjugate terms we obtain 

- + U+^{n ))—^ - ^(u^{n)A^,in)+ U+{n)A'l;in)\ + ..{8.73) 

The Afj,{n) is the sum over the six so-called staples which are the products over the other 
three link variables which together with ?7^(n) make up the six plaquettes which share 
U^{n). Explicitly we have 

= X] + ^)U{^{n) + C/+(n -k A - i^)U^{n - i')Uy{n - i>)] .(8.74) 

We have then the result 

“ f X] ^ - li^e{U^{n)A^{n)) + ... (8.75) 

nsA 

We compute then 

A5G[C;.(n))] = Sg[U]-Sg[U] 

= -l3{U^{n) - Ufj,{n))A^{n). (8.76) 


Having computed the variation AS'G[C^(n))], next we inspect its sign. If this variation is 
negative then the proposed change U^{n) —)■ U^{n)' will be accepted (classical mechan¬ 
ics). If the variation is positive, we compute the Boltzmann probability 

exp(-AS'G[C/,(n))]) = exp(/3(17^(n)'- C/^(n))^^(n)). (8.77) 


The proposed change U^{n) —)> Ufj,{n)' will be accepted according to this probability 
(quantum mechanics). In practice we will pick a uniform random number r between 0 
and I and compare it with exp(—A5G[P^(?r))]). If exp(—ASG[P/i(n))]) < r we accept 
this change otherwise we reject it. 

We go through the above steps for every link in the lattice which constitutes one Monte 
Carlo step. Typically equilibration (thermalization) is reached after a large number of 
Monte Carlo steps at which point we can start taking measurements based on the formula 


(8.66) written as 


1 ^ 

<o>=-Y,Oi, Oi = 0{Ui). 


(8.78) 


2=1 


The L configurations Ui = {U^{n)}i are L thermalized gauge held conhgurations dis¬ 
tributed according to exp(—5 g[?7]). 

The error bars in the different measurements will be estimated using the jackknife 
method. We can also compute auto-correlation time and take it into account by separating 
the measured gauge held conhgurations Ui by at least one unit of auto-correlation time. 

Let us also comment on how we choose the proposed conhgurations U^{n)' . The 
custom is to take U^{n) = XU^{n) where X is an element in the gauge group (which is 
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here ?7(1)) near the identity. In order to maintain a symmetric selection probability, X 
should be drawn randomly from a set of 1/(1) elements which contains also X~^. For 17(1) 
gauge group we have X = exp(i^) where </> G [0, 27r]. In principle the acceptance rate can 
be maintained around at least 0.5 by tuning appropriately the angle (j). Reunitarization 
of Ufj,(n)' may also be applied to reduce rounding errors. 

The final technical remark is with regard to boundary conditions. In order to reduce 
edge effects we usually adopt periodic boundary conditions, i.e. 

U^(N,n2,n^,ni) = C^(0, n2, ns, 714 ), 17^(ni, iV, n3,n4) = [/^(ni, 0, ns, n4), 
U^{ni,n 2 ,N,rn) = C^(ni, n 2 , n, 0, n4), t7^(ni, n 2 , ns, AY) = t7;,(ni, n 2 , ns, 0(8.79) 

This means in particular that the lattice is actually a four dimensional torus. In the 
actual code this is implemented by replacing i ± 1 by ip(i) and im(i), ipT(i) and imT(i) 
respectively which are defined by 

do i=l,N 

ip(i)=i+l 

im(i)=i-l 

enddo 

ip(N)=l 
im(l)=N 
do i=l,NT 
ipT(i)=i+l 
imT(i)=i-l 
enddo 

ipT(NT)=l 

imT(l)=NT 

A code written along the above lines is attached in the last chapter. 


8.3.2 Some Numerical Results 

1 . We run simulations for N = 3,4,8,10,12 with the coupling constant in the range 
(3 = 2 ,..., 12. We use typically 2^“^ thermalization steps and 2^^ measurements steps. 


2. We measure the specific heat (figure (8.1)). We observe a peak in the specific heat 


at around (3 = 1. The peak grows with N which signals a critical behavior typical of 
2nd order transition. 


3. The simplest order parameter is the action per plaquette P, defined in equation 


(8.62), which is shown on figure (8.2). We observe good agreement between the 


high-temperature and low-temperature expansions of P from one hand and the corre¬ 
sponding observed behavior in the strong coupling and weak coupling regions respec¬ 
tively from the other hand. We note that the high-temperature and low-temperature 
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expansions of the pure U{1) gauge field are given by 

P = l-^ + 0{f) , high T. 


P=l-j^ + 0{l/f3^) 


low T. 


(8.80) 


(8.81) 


We do not observe a clear-cut discontinuity in P which is, in any case, consistent 
with the conclusion that this phase is second order. We note that for higher U{N) 
the transition is first order [^. 


A related object to P is the total action shown on figure (8.3). 


4. A more powerful order parameters are the Wilson loops which are shown on figure 


(8.4). We observe that the Wilson loop in the strong coupling region averages to 


zero very quickly as we increase the size of the loop. This may be explained by an 
area law behavior. In the weak coupling region, the evolution as a function of the 
area is much more slower. The demarcation between the two phases becomes very 
sharp (possibly a jump) for large loops sX j3 = 1. 

5. Calculating the expectation value of the Wilson loop and then extracting the string 
tension is very difficult since the perimeter law is dominant more often. The Creutz 


ratios (figure (8.5)) allow us to derive the string tension in a direct way without 
measuring the Wilson loop. The string tension is the coefficient of the linearly rising 
part of the potential for large (infinite) separations of a quark-antiquark pair in the 
absence of pair production processes. In this way, we hope to measure the physical 
string tension in a narrow range of the coupling constant. 

We observe that the string tension in the weak coupling regime is effectively inde¬ 
pendent of the coupling constant and it is essentially zero. In the strong coupling 
regime we reproduce the strong coupling behavior 

/3 


CT = — In - 


(8.82) 


8.3.3 Coulomb and Confinement Phases 

The physics of the compact 17(1) theory is clearly different in the weak- and strong¬ 
coupling regions. This can be understood from the fact that there is a phase transition 
as a function of the bare coupling constant. The compact 17(1) theory at weak coupling 
is not confining and contains no glueballs but simply the photons of the free Maxwell 
theory. One speaks of a Coulomb phase at weak coupling and a confining phase at strong 
coupling. In the Coulomb phase photons are massless and the static potential has the 
standard Coulomb form 

e2 

V = - -[-constant, (8.83) 

47rr 

whereas in the confinement phase photons become massive and the potential is linearly 
confining at large distances 


V = ar. 


(8.84) 
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There is a phase transition at a critical coupling /3 ~ 1 at which the string tension (t(/ 3) 
vanishes in the Conlomb phase. In the confinement phase topological configurations are 
important snch as monopoles and glneballs. 

The strong-coupling expansion is an expansion in powers oiXj. It has the advantage 
over the weak-coupling expansion that it has a non-zero radius of convergence. A lot 
of effort has been put into using it as a method of computation similar to the high- 
temperatnre or the hopping parameter expansion for scalar field theories. One has to be 
able to tune on the values of the coupling constant where the theory exhibits continnum 
behavior. This turns out to be difficult for gauge theories. However, a very important 
aspect of the strong-coupling expansion is that it gives insight into the qnalitative behavior 
of the theory snch as confinement and the particle spectrum. 

The strong-coupling expansion of compact U{1) theory shows explicitly that the theory 
is confining, i.e. the potential is linear with a string tension given by (with m = 13/2) 

a = —\n.ai — 2{d — 2)a\ +.... (8.85) 



Figure 8.1; The specific heat on a 3^, 4"^, 10'^ and 12^ lattices. 
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Figure 8.2: The action per plaquette on a 8^ and 10^ lattices. 



Figure 8.3: The action on a 4^ and 12"^ lattices. 
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Figure 8.4: The Wilson loop as a function of the inverse coupling strength /3. 
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Figure 8.5: String tension from Creutz ratio as a function of /3 on a 12^ lattice. 
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program mymetropolisym 

implicit none 

integer dim,dimm,N,ther,mc,Tther,Tmc 
integer lambda,i,j,idum 
parameter (dimm=10,N=8) 
parameter (Tther=2**ll,Tmc=2**ll) 
double complex X(dimm,N,N) 

double precision xx,y,Accept,Reject,inn,interval,pa 
double precision act(Tmc),actio,average_act,error_act 

double precision t 1, t 2 
real x0 

call cpu_time(t_l) 

do dim=2,dimm 

if(d im. le.d immjthen 

c.initialization of random number generator. 

idum=- 148175 
X0=0.0 

idum=idum-2*int(secnds(x0)) 

c.inititialization of X. 


inn=1.0d0 
do lambda=l,dimm 

if (lambda. le.dimjthen 
do i=l,N 
do j=i,N 

if (j .ne.i) then 

xx=interval(idum,inn) 
y=interval(idum,inn) 

X(lambda,i,j )=cmplx(xx,y) 

X(lambda,] ,i)=cmplx(xx, -y) 

else 

xx=interval(idum,inn) 

X(lambda,i,j)=xx 

endif 

enddo 

enddo 

else 

do i=l,N 
do j=i,N 

if (j .ne.i) then 

xx=0.0d0 

y=0.0d0 

X(lambda,i,j )=cmplx(xx,y) 

X(lambda,] ,i)=cmplx(xx, -y) 

else 

xx=0.0d0 

X(lambda,i,])=xx 

endif 

enddo 

enddo 

endif 

enddo 

c.... accepts including flips, rejects and the acceptance rate pa... 


Reject=0.0d0 
Accept=0 .0d0 
pa=0.0d0 

c.thermalization 


do ther=l,Tther 
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call metropolis( dim, dimni,N,X,Reject,Accept,inn,idum) 
call adjust_inn(pa,inn,Reject,Accept) 
call action(dim,dimm,N,X, actio) 
write(*,*) then,actio,pa 
write ( 10+dim ,*)then,actio,pa 
enddo 

c.monte carlo evolution. 

do mc=l,Tmc 

call metropolis( dim, dimm,N,X,Reject,Accept,inn,idum) 
call adj ust_inn(pa,inn,Rej ect,Accept) 
call action(dim,dimm,N,X, actio) 
act(mc)=actio 
write(*,*)mc,act(mc) ,pa 
write(21+dim,*)mc,act(mc) ,pa 
enddo 

c.measurements. 

call jackknife_binning(Tmc,act,average_act,error_act) 
write (*,*) dim, average_act,error_act 
write (32,*) dim, average_act,error_act 

endif 

enddo 

c.cpu time. 

call cpu_time(t_2) 

write(* ,*) "cpu_time" , t_2-t_l 

return 

end 


c.action. 

subroutine action(dim,dimm,N,X, actio) 
implicit none 

integer dim, dimm,N,mu,nu,i,j, k,I 
double complex X(dimm,N,N) 
double precision actio,actionG 


actio=0 .OdO 
do mu =l,dimm 

do nu=mu+l,dimm 
action0=0.0d0 
do i=l,N 
do j=l,N 
do k=l,N 
do 1=1, N 

action0=action0+X(mu,i,j)*X(nu,j,k)*X(mu,k,l)*X(nu,l,i) 
& -X(mu,i,j)*X(mu,j,k)*X(nu,k,l)*X(nu,l,i) 

enddo 

enddo 

enddo 

enddo 

action0=-N*action0 

actio=actio+action0 

enddo 

enddo 

return 

end 


c 


metropolis algorithm 


subroutine met ropolis (dim, dimm, N,X, Rej ect,Accept,inn,idum) 
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implicit none 

integer dim,dimm,N,i,].lambda,idum 

double precision Reject,Accept,inn,interval,deltas,ran2,zl,pi,xx,y 
double complex X(dimm,N,N),dc,debar 

do lambda=l,dim 

c.diagonal. 

do i=l,N 

xx=interval(idum,inn) 
y=interval(idum.inn) 
dc=cmplx(xx,0) 
dcbar=cmplx(xx, -0) 

call variationYM( dim, dimm,N,lambda,i,i,dc,dcbar,X,deltas) 
if ( deltas .gt. 0.0d0 ) then 
zl=ran2(idum) 
pl=dexp(-deltaS) 
if ( zl .It. pi ) then 

X(lambda,i,i)=X(lambda,i,i)+dc+dcba r 
Accept=Accept+l .0d0 
else 

Rej ect=Rej ect+1 .0d0 

endif 

else 

X(lambda,i,i)=X(lambda,i,i)+d c+d eba r 
Accept=Accept+l .0d0 

endif 

enddo 

c.off diagonal. 

do i=l,N 

do j=i+l,N 

xx=inte rval(idum,inn) 
y=interval(idum,inn) 
dc=cmplx(xx,y) 
dcbar=cmplx(xx,-y) 

call variationYM( dim, dimm,N,lambda,i,j,dc,debar,X,deltas) 
if ( deltas .gt. 0.0d0 ) then 
zl=ran2(idum) 
pl=dexp(-deltaS) 
if ( zl .It. pi ) then 

X(lambda,!,])=X(lambda,i,j)+dc 
Accept=Accept+l .0d0 
else 

Rej ect=Rej ect+1 .0d0 

endif 

else 

X(lambda,i,j)=X(lambda,i,j)+dc 
Accept=Accept+l .0d0 

endif 

X(lambda,],i)=dcon]g(X(lambda,i,])) 

enddo 

enddo 

enddo 

return 

end 


c.variation of the action. 

subroutine variationYM( dim, dimm,N,lambda,!,],dc,debar,X,deltas) 

implicit none 

integer dim, dimm,N,i,j,lambda,sigma, k,I , p , q 
double complex delta0,deltal,del2,del3,deita2 
double precision deltall,delta22,deltas 
double complex X(dimm,N,N),dc,debar 


delta0=0.0d0 
do sigma=l,dim 
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if (sigma. ne. lambda) then 
do k=l,N 

delta0=delta0-X(sigma,i,k)*X(sigma,k,i) 

& -X(sigma,],k)*X(sigma,k,]) 

enddo 

endif 

enddo 

deltal=0 .0d0 

deltal=deltal+dc*dcba r*delta0 

if (i.eq.j) then 

deltal=cleltal+0 .5d0* (dc*dc+dcba r*dcba r)*delta0 

endif 

do sigma=l,dim 

if (sigma. ne.lambda)then 

deltal=deltal+dc*dc*X(sigma,],i)*X(sigma,],i) 

& +dcbar*dcbar*X(sigma,i,])*X(sigma,i,]) 

& +2. 0d0*d c*dcbar*X(sigma,i,i)*X(sigma,],]) 

endif 
enddo 

deltal=-N*deltal 
deltall=real(delta1) 
del2=0.0d0 
del3=0.0d0 
do sigma=l,dim 
do k=l,N 
do 1=1, N 

del2=del2+2.0d0*X(sigma,i,k)*X(lambda,k,l)*X(sigma,l,]) 
& -1. 0d0*X (sigma,i,k)*X(sigma,k,I)*X(lambda,I,]) 

Si -1 .0d0*xUambda ,i,k)*X(sigma, k,I)*X(sigma,I,]) 

del3=del3+2 . 0d0*X (sigma,],k)*X(lambda,k,I)*X(sigma,I,i) 
& -1.0d0*X( sigma,],k)*X(sigma,k,I)*X(lambda,I,i) 

& -1.0d0*X(lambda,] ,k)*X(sigma,k,l)*X(sigma,l,i) 

enddo 
enddo 
enddo 

delta2=0.0d0 

delta2=-N*dcba r*del2-N*dc*del3 
delta22=real(delta2) 
deltaS=deltall+delta22 

return 

end 


c.the jackknife estimator. 

subroutine jackknife binning(TMC,f,average,error) 

implicit none 

integer i,],TMC,zbin,nbin 

double precision xm 

double precision f ( 1 :TMC) ,sumf, y ( 1 :TMC) 
double precision sig0,sig,error,average 

c.TMC is the number of data points. sig0 is the standard deviation, sumf is the sum of all 

the data points f_i whereas xm is the average of f. 

sig0=0.0d0 
sumf=0.0d0 
do i=l,TMC 

sumf=sumf+f(i) 
enddo 

xm=sumf/TMC 

c.... zbin is the number of elements we remove each time from the set of TMC data points, the minimum 
number we can remove is 1 whereas the maximum number we can remove is TMC-l.each time we remove zbin 

elements we end up with nbin sets (or bins). 

c do zbin=l,TMC-l 
zbin=l 

nbin=int(TMC/zbin) 

sig=0.0d0 
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do i=l,nbin,l 

c... y(i) is the average of the elements in the ith bin.This bin contains TMC-zbin data points after we 
had removed zbin elements, for zbin=l we have nbin=TMC.In this case there are TMC bins and y_i=sum_{]#i} 
x_j/(TMC-l). for zbin=2 we have nbin=TMC/2. In this case there are TMC/2 bins and y_i= sum_]x_]/(TMC-2)- 
x_{2i}/(TMC-2)-x_{2i-l}/(TMC-2)... 
y(i)=sumf 
do ]=l,zbin 

y(i)=y(i)-f((i-l)*zbin+] ) 

enddo 

y(i)= y(i)/(TMC-zbin) 

c.the standard deviation computed for the ith bin. 

sig=sig+( (nbin-1.0d0)/nbin)*(y(i) -xm)*(y(i)-xm) 

enddo 

c.... the standard deviation computed for the set of all bins with fixed zbin. 

sig=sig 

c.the error. 

sig=dsqrt(sig) 

c.... we compare the result with the error obtained for the previous zbin, if it is larger, then this is 
the new value of the error... 

if (sig0 .It. sig) sig0=sig 
c enddo 

c.... the final value of the error. 

error=sig0 
average=xm 

return 

end 


c.the random number generator ran2. 

function ran2(idum) 

implicit none 

integer idum,IMl,IM2,IMMl,lAl,IA2,IQl,IQ2,IRl,IR2,NTAB,NDIV 
real AM,EPS,RNMX 

double precision ran2 

pa rameter ( IM1=2147483563 , IM2=2147483399 , AM=1 . /IMl,IMM1=IM1- 1 , 
& IA1=40014,IA2=40692,101=53668,102=52774,IR1=12211, 

& IR2=3791,NTAB=32,NDIV=1+IMM1/NTAB,EPS=1.2E-7,RNMX=1. -EPS) 

integer idum2,j,k,iv(NTAB),iy 
SAVE iv,iy,idum2 

DATA idum2/123456789/ , iv/NTAB*0/ , iy/0/ 

if (idum.le.0) then 

idum=max( -idum, 1) 
idum2=idum 
do ] =NTAB-i-8 , 1 , -1 
k=idum/I01 

idum=IAl*(idum-k*I01)-k*IRl 
if (idum.lt. 0) idum=idum-i-IMl 
if (j.le.NTAB) iv(])=idum 

enddo 

iy=iv(l) 

endif 

k=idum/I01 

idum=IAl*(idum-k*I01)-k*IRl 
if (idum. It. 0) idum=idum-i-IMl 
k=idum2/I02 

idum2=IA2*(idum2-k*I02)-k*IR2 

if (idum2.lt.0) idum2=idum2-i-IM2 

:j=l+iy/NDIV 

iy=iv(])-idum2 

iv(])=idum 

if (iy.lt. 1) iy=iy-i-IMMl 
ran2=min (AM*iy,RNMX) 

return 

end 
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c.interval. 

function interval(idum,inn) 

implicit none 

double precision interval,inn,ran2 
integer idum 

interval=ran2(idum) 
interval=interval+interval-l .0d0 
interval=interval*inn 

return 

end 


c.adjusting interval. 

subroutine adjust_inn(pa,inn,Reject,Accept) 

implicit none 

double precision inn,pa,Reject,Accept 


c.pa acceptance rate. 

pa=(Accept)/(Reject+Accept) 

c.fixing the acceptance rate at 30 % 

if (pa. ge. 0.30) inn=inn*1.20d0 
if (pa. le. 0.25) inn=inn*0 .80d0 


return 

end 
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program my_hybrid_ym 

implicit none 

integer d,N,i,j,k,lambda,idum,tt,time,time!,tther,Tth 
parameter (d=4,N=4) 
parameter (Tth=2**10) 

double precision gamma, mm,alpha,inn,dt,interval 

double complex X(d,N,N),P(d,N,N) 

double precision actio,ham,kin,variationH 

double precision Reject,Accept,pa 

double precision varH(Tth),varH_average,varHerror 

double precision ac(Tth),ac_average,ac_error 

real x0 

c.initialization of random number generator. 

idum=- 148175 
X0=0.0 

c... seed should be set to a large odd integer according to the manual, secnds(x) gives number of 
seconds-x elapsed since midnight, the 2*int(secnds(x0)) is always even so seed is always odd.... 
idum=idum-2*int(secnds(x0)) 

c.testing molecular dynamics. 

c call hot(N,d,idum,inn,X,P) 
c call cold(N,d,X) 

c time=l 

c dt=0.01d0 

c timeT=100 

c do tt=l,timeT 

c call molecular_dynamics(N,d,dt,time,gamma,mm,alpha,X,P) 

c call action(d,N,X,P,alpha,mm,gamma,actio,ham,kin) 

c write(9,*)tt,actio,ham 

c write(*,*)tt,actio,ham 

c enddo 

c.parameters of molecular dynamics. 

time=100 

dt=0.01d0 

c.parameters. 

mm=0 .0d0 
alpha=0 .0d0 
do k=0,20 

gamma=2 . Id0-k*0 .Id0 

c.initialization of X and P. 

inn=l .0d0 

call hot(N,d,idum,inn,X,P) 
call cold(N,cl,X) 

c.accepts including flips, rejects and the acceptance rate pa. 

Reject=0.0d0 
Accept=0.0d0 
pa=0 .0d0 

c.thermalization. 

do tther=l,Tth 

call metropolis(N,d, gamma, mm,alpha,dt,time,X,P,Reject,Accept 
& ,variationH) 

enddo 


c 


monte carlo evolution.... 
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do tther=l,Tth 

call metropolis(N,d, gamma, mm,alpha,dt,time,X,P,Reject,Accept 
& ,variationH) 

pa=(Accept)/(Reject+Accept) 

call action (d,N,X,P,alpha,mm, gamma ,actio,ham,kin) 
ac(tther)=actio 
varH(tther)=dexp(-variationH) 
write ( 10 ,*)tther,actio,ham,kin,variationH,pa 
write (*,*)tther,actio,ham,kin,variationH,pa 
enddo 

c.measu rements. 

call jackknife_binning(Tth,varH,varHaverage,varHerror) 
write (*,*) gamma ,alpha,mm,va rH_ave rage,va rH_e r ro r 
write ( 11 ,*) gamma ,alpha,mm,va rH_ave rage,va rH_e rro r 
call jackknife_binning(Tth,ac,ac_average,ac_error) 
write (*,*) gamma, alpha,mm,ac_average,ac_error 
write ( 12, *) gamma, alpha,mm,ac_average,ac_error 
enddo 

return 

end 


c.metropolis algorithm. 

subroutine metropolis(N,d, gamma, mm,alpha,dt,time,X,P,Reject,Accept 
& ,variationH) 

implicit none 

integer N,d,i,j,mu,nu,k,l,idum,time 

double precision gamma, mm,alpha,inn,dt,ran2,Reject,Accept 
double complex var(d,N,N),X(d,N,N),X0(cl,N,N),P(d,N,N),P0(d,N,N) 
double precision variations,variationH,probabilityS,probabilityH,r 
double precision actio,ham,kin 

c.Gaussian initialization. 

call gaussian(d,N,P) 


X0=X 

P0=P 

call action (d,N,X,P,alpha,mm, gamma ,actio,ham,kin) 
va riationS=actio 
va riationH=ham 

c.molecular dynamics evolution. 

call molecular_dynamics(N,d,dt,time, gamma ,mm,alpha,X,P) 

call action (d,N,X,P,alpha,mm, gamma ,actio,ham,kin) 
va riationS=actio-va riationS 
va riationH=ham-variationH 

c.metropolis accept-reject step. 

if (variationH. It. 0.0d0) then 
accept=accept-i-l . 0d0 

else 

probabilityH=dexp(-variationH) 
r=ran2(idum) 

if ( r.lt.probabilityH)then 
accept=accept-i-l .0d0 
else 
X=X0 
P=P0 

Rej ect=Rej ect-i-1 .0d0 
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endif 

endif 

return 

end 


c.actions and Hamiltonians. 

subroutine action(d,N,X,P, alpha,mm, gamma, actio,ham,kin) 

implicit none 

integer d,N,mu,nu,i,],k,l 

double complex X(d,N,N),P(d,N,N),ii,CS,action0,ham0,actionl, 

& actio0,action2,haml 
double precision actio,ham,kin 
double precision mm, gamma, alpha 

ii=cmplx(0, 1) 
actio0=cmplx(0,0) 
do mu =l,d 

do nu=mu+l,d 

action0=cmplx(0,0) 
do i=l,N 
do ]=1,N 
do k=l,N 
do 1=1, N 

action0=action0+X(mu,i,])*X(nu,],k)*X(mu,k,l)*X(nu,l,i) 
& -X(mu,i,])*X(mu,],k)*X(nu,k,l)*X(nu,l,i) 

enddo 

enddo 

enddo 

enddo 

actio0=actio0+action0 

enddo 

enddo 

actio=real(actio0) 

actio=-N*gamma*actio 

haml=cmplx(0,0) 
action2=cmplx(0,0) 
do mu =l,d 
ham0=cmplx(0,0) 
actionl=cmplx(0,0) 
do i=l,N 
do ]=1,N 

ham0=ham0+P(mu,i,])*P(mu,],i) 
actionl=actionl+X(mu,i,])*X(mu,],i) 

enddo 

enddo 

action2=action2+actionl 

haml=haml+ham0 

enddo 

ham=0 .5d0* real (haml) 
kin=ham 

actio=actio+0 . 5d0*mm*real(action2) 


CS=0.0d0 
do i=l,N 
do ]=1,N 
do k=l,N 

CS=CS+ii*X(l,i,])*X(2,],k)*X(3,k,i) 
& -ii*X(i,i,])*X(3,],k)*X(2,k,i) 

enddo 

enddo 

enddo 

actio=actio+2 . 0d0*alpha*N*real(CS) 
ham=ham+actio 
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return 

end 

c.the force. 

subroutine variation(N,d, gamma, mm,alpha,X,var) 

implicit none 
integer N,d,i,],mu,nu,k,l 
double precision gamma, mm,alpha 
double complex var(d,N,N),X(d,N,N),ii 

ii=dcmplx(0, 1) 
do mu=l,d 
do i=l,N 
do ]=i,N 

var(mu,i,] )=cmplx(O,0) 
do nu=l,d 
do k=l,N 
do 1=1, N 

var(mu,i,])=var(mu,i,] )+2 . 0d0*X(nu ,],k)*X(mu,k,l)*X(nu,l,i) 
-X(nu,],k)*X(nu,k,l)*X(mu,l,i) 
-X(mu,],k)*X(nu,k,l)*X(nu,l,i) 

enddo 
enddo 
enddo 

var(mu,i,] )=-N*gamma*var(mu,i,] )+mm*X(mu,],i) 

if (mu .eq.l)then 

do k=l,N 

var(mu,i,])=var(mu,i,] )+2.0d0*ii*alpha*N*X(2,] ,k)*X(3,k,i) 

& -2.0d0*ii*alpha*N*X(3,] ,k)*X(2,k,i) 

enddo 
endif 

if(mu.eq.2)then 

do k=l,N 

var(mu,i,])=var(mu,i,] )+2 . 0d0*ii*alpha*N*X(3 ,],k)*X(l,k,i) 

& -2 .0d0*ii*alpha*N*X(l ,],k)*X(3,k,i) 

enddo 
endif 

if(mu.eq.3)then 

do k=l,N 

var(mu,i,])=var(mu,i,] )+2 . 0d0*ii*alpha*N*X( 1 ,j,k)*X(2,k,i) 

& -2 .0d0*ii*alpha*N*X(2 ,],k)*X(l,k,i) 

enddo 
endif 

var(mu,] ,i)=conjg(var(mu,i,] )) 

enddo 
enddo 
enddo 

return 
end 


c.leap frog. 

subroutine molecular_dynamics(N,d,dt,time, gamma, mm,alpha,X,P) 

implicit none 

integer N,d,i,],mu,nn,time 

double precision dt, gamma, mm,alpha 

double complex X(d,N,N),P(d,N,N),var(d,N,N) 

do nn=l,time 

call variation(N,d, gamma, mm,alpha,X,var) 
do mu=l,d 
do i=l,N 
do ]=i,N 

P(mu,i,])=P(mu,i,]) -0.5d0*dt*var(mu,i,] ) 

X(mu,i,])=X(mu,i,])+dt*conjg(P(mu,i,])) 
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X(mu,],i)=con]g(X(mu,i,])) 

enddo 

enddo 

enddo 

call variation(N,d, gamma, mm,alpha,X,var) 
do mu=l,d 
do i=l,N 
do ]=i,N 

P(mu,i,])=P(mu,i,]) -O.5d0*dt*var(mu,i,] ) 
P(mu,],i)=conjg(P(mu,i,])) 

enddo 

enddo 

enddo 

enddo 

return 

end 


c.generation of Gaussian noise for the field P 

subroutine gaussian(d,N,P) 

implicit none 
integer d,N,mu,i,j,idum 
double precision pi,phi,r,ran2 
double complex ii,P(d,N,N) 

pi=dacos( -1.0d0) 
ii=cmplx(0, 1) 
do mu=l,d 
do i=l,N 

phi=2.0d0*pi*ran2(idum) 
r=dsqrt( -2.0d0*dlog(1.0d0-ran2(idum) )) 
P(mu,i,i)=r*dcos(phi) 
enddo 
do i=l,N 

do ]=i+l,N 

phi=2.0d0*pi*ran2(idum) 
r=dsqrt(-1.0d0*dlog(1.0d0-ran2(idum) )) 
P(mu,i,] )=r*dcos(phi)+ii*r*dsin (phi) 
P(mu,] ,i)=conjg(P(mu,i,] )) 

enddo 

enddo 

enddo 

return 

end 


c.the jackknife estimator. 

subroutine jackknife_binning(TMC,f,average,error) 

implicit none 
integer i,j,TMC,zbin,nbin 
double precision xm 

double precision f (1:TMC),sumf,y(l:TMC) 
double precision sig0,sig,error,average 

sig0=0.0d0 
sumf=0.0d0 
do i=l,TMC 

sumf=sumf+f(i) 

enddo 

xm=sumf/TMC 
do zbin=l,TMC-l 
zbin=l 

nbin=int(TMC/zbin) 
sig=0.0d0 
do i=l,nbin,l 


c 







QT' QT' 
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y(i)=sumf 
do ]=l,zbin 

y(i)=y(i)-f((i-l)*zbin+] ) 

enddo 

y(i)= y(i)/(TMC-zbin) 

sig=sig+( (nbin-1.0d0)/nbin)*(y(i) -xm)*(y(i)-xm) 

enddo 

sig=sig 

sig=dsqrt(sig) 
if (sig0 .It. sig) sig0=sig 
c enddo 

error=sig0 

average=xm 

return 

end 


c.the random number generator ran2. 

function ran2(idum) 

implicit none 

integer idum,IMl,IM2,IMMl,lAl,IA2,IQl,IQ2,IRl,IR2,NTAB,NDIV 
real AM,EPS,RNMX 

double precision ran2 

pa rameter ( IM1=2147483563 , IM2=2147483399 , AM=1 . /IMl,IMM1=IM1- 1 , 
IA1=40014 , IA2=40692 , 101=53668 , 102=52774,IR1=12211 , 
IR2=3791 , NTAB=32 ,NDIV=1+IMM1/NTAB, EPS=1 .2E-7 , RNMX=1 . - EPS) 
integer idum2,],k,iv(NTAB),iy 
SAVE iv,iy,idum2 

DATA idum2/123456789/ , iv/NTAB*0/ , iy/0/ 

if (idum.le.0) then 

idum=max( -idum, 1) 
idum2=idum 
do ]=NTAB+8,1, -1 
k=idum/I01 

idum=IAl*(idum-k*101)-k*IRl 
if (idum.lt. 0) idum=idum-i-IMl 
if (j.le.NTAB) iv(])=idum 

enddo 

iy=iv(l) 

endif 

k=idum/I01 

idum=IAl*(idum-k*I01)-k*IRl 
if (idum. It. 0) idum=idum-i-IMl 
k=idum2/I02 

idum2=IA2*(idum2-k*I02)-k*IR2 
if (idum2.lt.0) idum2=idum2-i-IM2 
]=l-i-iy/NDIV 
iy=iv(])-idum2 
iv(])=idum 

if (iy.lt.l) iy=iy-i-IMMl 
ran2=min (AM*iy,RNMX) 

return 
end 


c.hot start. 

subroutine hot(N,d,idum,inn,X,P) 

implicit none 

integer lambda,i,j,N,d,idum 
double complex X(d,N,Nj,P(d,N,N) 
double precision xx,y,inn,interval 

do lambda=l,d 
do i=l,N 
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do ]=i,N 

if (] .ne.i) then 

xx=interval(idum,inn) 
y=interval(idum,inn) 
X(lambda,i,] )=cmplx(xx,y) 

X(lambda,]', i)=cmplx(xx, - y) 
xx=interval(idum,inn) 
y=interval(idum,inn) 
P(lambda,i,] )=cmplx(xx,y) 
P(lambda,], i)=cmplx(xx, -y) 
else 

xx=interval(idum,inn) 
X(lambda,i,])=xx 
xx=interval(idum,inn) 
P(lambda,i,])=xx 

endif 

enddo 

enddo 

enddo 

return 

end 


c.interval. 

function interval(idum,inn) 

implicit none 

double precision interval,inn,ran2 
integer idum 

interval=ran2(idum) 
interval=interval+interval-l .0d0 
interval=interval*inn 

return 

end 

c.cold start. 

subroutine cold(N,d,X) 
implicit none 
integer lambda,i,j,N,d 
double complex X(d,N,N) 

do lambda=l,d 
do i=l,N 
do ]=1,N 

X(lambda,i,] )=cmplx(0,0) 

enddo 

enddo 

enddo 

return 

end 
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program myhybridscalarfuzzy 

implicit none 

integer N,i,j,k,idum,tt,time,tther,Tth,cou,ttco,Tco,Tmc,nn 
parameter (N=6) 

parameter (Tth=2**10,Tmc=2**10,Tco=2**0) 
double precision a,b,c,at,bt,ct 
double complex phi(N,N),P(N,N),phi0(N,N) 

double precision actio,ham,kin,quad,quar,mag,variationH,ev (1 :N) 
double precision Reject,Accept,pa,inn,dt,interval,xx,y,t_l,t_2 
double precision varH(Tmc),varH_average,varHerror 
double precision acti(Tmc),acti_average,acti_error 
double precision Cv(Tmc),Cv_average,Cv_error 
double precision ma(Tmc),ma_average,ma_error 
double precision chi(Tmc),chi_average,chi_error 
double precision p0(Tmc),p0_average,p0_error 
double precision pt(Tmc),pt_average,pt_error 
double precision kinet(Tmc),kaverage,kerror 
double precision ide_average,ide_error 
double precision qu(Tmc),qu_average,qu_error 
double precision target_pa_high,target_pa_low,dt_max,dt_min,inc 
& ,dec 
real x0 


call cpu_time(t_l) 

c.initialization of random number generator 

idum=- 148175 
X0=0.0 

idum=idum-2*int(secnds(x0)) 


c.parameters. 

at=dsqrt(1.0d0*N) !1.0d0 

a=at/dsq rt ( 1. 0d0*N ) 

ct=1.0d0 

c=N*N*ct 

do k=0,0 

bt=-5.0d0+k*0.1d0 
b=N*dsqrt (1 .0d0*N)*bt 

c.initialization of phi and P 


inn=1.0d0 

call hot(N,idum,inn,phi,P) 
c.parameters of molecular dynamics 


time=10 

dt=0.01d0 


c 


accepts including flips, rejects and the acceptance rate pa 


Reject=0.0d0 
Accept=0.0d0 
pa=0 .0d0 

c.the acceptance rate is fixed in [0.7,0.9] such that dt is in [0.0001,1].... 

target_pa_high=0 .90d0 

ta rget_pa_low=0 .70d0 

dt_max=l .0d0 

dt_min=0 .0001d0 

inc=1.2d0 

dec=0.8d0 

nn=l 
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c.thermalization. 

do tther=l,Tth 

call metropolis(N,a,b,c,dt,time,phi,P,Reject,Accept 
& ,variationH,idum) 

call action (N,phi,P,a,b,c,kin,quad,q ua r,a ctio,ham,mag) 
cou=tther 

call adjust_inn(cou,pa,dt,time,Reject.Accept, 

& nn,ta rget_pa_high,ta rget_pa_low,dt_max,dt_min,inc,dec) 

write (*,*)tthe r,pa,dt,actio 

enddo 

c.monte carlo evolution. 

do tther=l,Tmc 

c.removing auto-correlations by separating data points by tco monte carlo steps 

do ttco=l,Tco 

call metropolis(N,a,b,c,dt,time,phi,P,Reject,Accept 
& ,variationH,idum) 

enddo 

c.constructing thermalized obervables as vectors. 


call action (N,phi,P,a,b,c,kin,quad,q ua r,a ctio,ham,mag) 

acti(tther)=actio 

ma(tther)=mag 

p0(tther)=mag*mag/N**2 

pt(tther)=quad/N 

kinet(tther)=kin 

qu(tther)=quar 

varH(tther)=dexp(-variationH) 


c.adjusting the step dt. 

cou=tther 

call adjust_inn(cou,pa,dt.time,Reject.Accept, 

& nn,ta rget_pa_high,ta rget_pa_low,dt_max,dt_min,inc,dec) 

write ( *,*)tthe r,pa,dt,actio 

c.the eigenvalues of phi. 


phi0=phi 

call eigenvalues(N,phi0,ev) 
write(62,*)tther,ev 

enddo 


c.measu rements. 

c.energy. 

call jackknife_binning(Tmc,acti,acti_average,acti_error) 
write(*, *) "action" ,a,bt,ct,acti_average,acti_error 
write ( 10 ,*) a , bt , ct , acti_ave rage,acti_e rro r 
c.specific heat Cv=<(S_i-<S>)"'2>. 


do tther=l,Tmc 
Cv(tther)=0.0d0 

Cv(tther)=Cv(tther)-i-acti(tther) 

Cv(tther)=Cv(tther)-acti_average 
Cv(tther)=Cv(tther)*Cv(tther) 

enddo 

call jackknife_binning(Tmc,Cv,Cv_average,Cv_error) 
write (*,*)" specific heat" ,a,bt,ct,Cv_average,Cv_error 
write ( 20 ,*)a,bt,ct,Cv_ave rage,Cv_e r ro r 

c.magnetization. 

call jackknife_binning(Tmc,ma,ma_average,ma_error) 
write(* ,*) "magnetization" ,a,bt,ct,ma_average,ma_error 
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write ( 30 ,*)a,bt,ct,ma_ave rage,ma_e r ro r 

c.susceptibility. 

do tther=l,Tmc 

chi(tther)=0.0d0 
chi(tther)=chi(tther)+ma(tther) 
chi(tther)=chi(tther)-ma_average 
chi(tther)=chi(tther)*chi(tther) 
enddo 

call ]ackknife_binning(Tmc,chi,chi_average,chi_error) 
write (*,*) "susceptibility" , a,bt,ct,chi_average,chi_error 
write ( 40 ,*)a,bt,ct,chi_ave rage,chi_e r ro r 

c.power in the zero mode. 

call ]ackknife binning(Tmc,p0,p0_average,p0_error) 
write(*,*)"zero power", a,bt,ct,p0_average,p0_error 
write ( 50 ,*)a,bt,ct,p0_ave rage,p0_e r ro r 

c.total power=quadratic term/N. 

call ]ackknife_binning(Tmc,pt,pt_average,pt_error) 

write (*,*) "total power=quadrtic/N" ,a,bt,ct,pt_average,pt_error 

write ( 60 ,*)a,bt,ct,pt_ave rage,pt_e r ro r 

c.kinetic term. 

call ]ackknife_binning(Tmc,kinet,k_average,k_error) 
write(* ,*) "kinetic" ,a,bt,ct,kaverage,kerror 
write ( 70 ,*)a,bt,ct,kave rage,k_e r ro r 

c.quartic term. . . . 

call ]ackknife_binning(Tmc,qu,qu_average,qu_error) 
write (*,*) "quartic" , a,bt,ct,qu_average,qu_error 
write ( 80 ,*)a,bt,ct,q u_ave rage,qu_e r ro r 

c.schwinger-dyson identity. 

ideave rage=2 . 0d0*a*k_ave rage+2 . 0d0*b*N*pt_ave rage 
& +4.0d0*c*qu_average 

ide_average=ide_average/(N*N) 
ide_error=2 .0d0*a*k_error+2 . 0d0*b*N*pt_error 
& +4.0d0*c*qu_error 

ide_e r ro r=ide_e r ro r/(N*N) 

write (*,*) "ide" , a,bt,ct,ide_average,ide_error 
write ( 81 ,*)a,bt,ct,ide_ave rage,ide_e rror 

c.variation of hamiltonian. 

call ]ackknife_binning(Tmc,varH,varH_average,varH_error) 
write (*,*)" exp(- \Delta H)" ,a,bt,ct,va rH ave rage,va rH_e r ro r 
write ( 11 ,*)a,bt,ct,va rH_average,varHerror 
enddo 


c.cpu time.... 

call cpu_time(t_2) 

write(* ,*) "cpu_time=" , t_2-t_l 

return 

end 


c.metropolis algorithm. 

subroutine metropolis(N,a,b,c,dt,time,phi,P,Reject,Accept 
& ,variationH,idum) 

implicit none 

integer N,i,j,mu,nu,k,l,idum,time 


double precision a,b,c,inn,dt,ran2,Reject,Accept 
double complex var(N,N),phi(N,N),phi0(N,N),P(N,N),P0(N,N) 
double precision variations,variationH,probabilityS,probabilityH,r 
double precision actio,ham,kin,quad,quar,mag 

c.Gaussian initialization, molecular dynamics evolution and variation of the Hamiltonian.... 

call gaussian(idum,N,P) 

phi0=phi 

P0=P 

call action (N,phi,P,a,b,c,kin,quad,quar,actio,ham,mag) 
va riationS=actio 
va riationH=ham 
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call molecular_dynamics(N,dt,time,a,b,c,phi,P) 
call action (N,phi,P,a,b,c,kin,quad,quar,actio,ham,mag) 
va riationS=actio-va riationS 
va riationH=ham-variationH 

c.metropolis accept-reject step. 

if ( variationH.lt. 0.0d0) then 
accept=accept-i-l . 0d0 

else 

probabilityH=dexp(-variationH) 
r=ran2(idum) 

if ( r.lt.probabilityH)then 
accept=accept-i-l .0d0 
else 

phi=phi0 

P=P0 

Rej ect=Rej ect-i-1 .0d0 

endif 

endif 

return 

end 


c.eigenvalues. 

subroutine eigenvalues(N,phi0,ev) 

implicit none 
integer N,inf 
double complex cw(l:2*N-l) 
double precision rw(l:3*N-2) 
double complex phi0 (1 :N, 1 :N) 
double precision ev(l:N) 

c.LAPACK's zheev diagonalizes hermitian matrices... 

call zheev( 'N' , 'U' ,N,phi0,N,ev,cw, 2*N- 1, rw,inf) 

return 

end 


c.actions and Hamiltonians. 

subroutine action(N ,phi,P,a,b,c,kin,quad,quar,actio,ham,mag) 

implicit none 
integer N,mu,i,j,k,l 
double complex phi(N,N),P(N,N) 
double precision a,b,c 

double precision kin,quad,quar,actio,ham,mag 
double complex kine,quadr,quart,ham0 

double complex Lplus(l:N,l:N),Lminus(l:N,l:N),Lz(l:N,l:N) 
double complex X(1:3,1:N,1:N) 

c.kinetic term and mass term. 

call SU2(N,X,Lplus,Lminus) 
kine=cmplx(0,0) 
do i=l,N 
do j=l,N 
do k=l,N 
do 1=1, N 

kine=kine+X(l,i,j)*phi(j,k)*X(l,k,l)*phi(l,i) 
+X(2,i,j)*phi(j,k)*X(2,k,l)*phi(l,i) 

+X(3,i,j)*phi(j,k)*X(3,k,l)*phi(l,i) 

enddo 
enddo 
enddo 
enddo 

kin=-2 .0d0*real(kine) 
quadr=cmplx(0,0) 
do i=l,N 
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do ]=1,N 

quadr=quadr+phi(i,])*phi(],i) 

enddo 

enddo 

kin=kin+0.5d0*(N*N-1.0d0)*real(quadr) 

quad=real(quadr) 

c.quartic term. 

quart=cmplx(0,0) 
do i=l,N 
do ]=1,N 
do k=l,N 
do 1=1, N 

quart=quart+phi(i,])*phi(],k)*phi(k,l)*phi(l,i) 

enddo 

enddo 

enddo 

enddo 

quar=real(quart) 


c.action.... 

actio=a*kin+b*quad+c*qua r 
c.Hamiltonian. 


ham0=cmplx(0,0) 
do i=l,N 
do ]=1,N 

ham0=ham0+P(i,])*P(],i) 

enddo 

enddo 

ham=0 . 5d0*real (ham0) 
ham=ham+actio 

c.magnetization 

mag=0.0d0 
do i=l,N 

mag=mag+phi(i,i) 

enddo 

mag=dabs(mag) 

return 

end 


c.the force. 

subroutine variation(N,a,b,c,phi,van) 
implicit none 
integer N,i,j,k,I,nu 
doubleprecision a,b,c 

doublecomplex var(N,N),varl(N,N),phi(N,N) 
doublecomplex Lplus (1 :N, 1 :N),Lminus (l:N,l:N),Lz(l:N,l:N) 
doublecomplex X(1:3,1:N,1:N) 

call SU2(N,X,Lplus,Lminus) 
do i=l,N 
do ]=i,N 

var(i,] )=cmplx(0,0) 
do k=l,N 
do 1=1, N 

var(i,])=var(i,] )+X(l,] ,k)*phi(k,I)*X( 1 ,I,i) 
+X(2,] ,k)*phi(k,l)*X(2,l,i) 

+X(3,] ,k)*phi(k,l)*X(3,l,i) 

enddo 
enddo 

varl(i,] )=cmplx(0,0) 
do k=l,N 
do 1=1, N 

varl(i,])=varl(i,])+phi(],k)*phi(k,l)*phi(l,i) 

enddo 
enddo 

var(i,] )=-4.0d0*a*var(i,] )+(N*N-1.0d0)*a*phi(] ,i) 
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& +2.0d0*b*phi(],i)+4.0d0*c*varl(i,] ) 

var(] ,i)=conjg(var(i,] )) 

enddo 

enddo 

return 

end 


c.SU(2) generators. 

subroutine SU2(N,L,Lplus,Lminus) 

implicit none 
integer i,j,N 

double complex Lplus( 1 :N, 1 :N),Lminus (1 :N, 1 :N),Lz (1 :N, 1 :N) 
double complex L(1:3,1:N,1:N) 
double complex 11 

ii=cmplx(0, 1) 
do i=l,N 
do ]=1,N 

if( ( i + 1 ) .eq. j )then 

Lplus(i,]) =dsqrt( ( N - i )*i*1.0d0 ) 

else 

Lplus(i,] )=0.0d0 

endif 

if( ( i - 1 ) .eq. ] )then 

Lminus(i,] )=dsqrt( ( N - j )*]*!. 0d0 ) 

else 

Lminus(i,] )=0.0d0 

endif 

if( i.eq.])then 

Lz(i,]) = ( N + 1 - 1 - i )/2.0d0 

else 

Lz(i,]) = 0.0d0 

endif 

L(l,i,] )=0.50d0*(Lplus(i,] )+Lminus(i,])) 

L(2,i, ] )=-0.50d0*ii* (Lplus(i,])-Lminus(i,])) 

L(3,i,] )=Lz(i,]) 

enddo 

enddo 

return 

end 


c.leap frog. 

subroutine molecular_dynamics(N,dt,time,a,b,c,phi,P) 

implicit none 

integer N,i,],nn,time 

double precision dt,a,b,c 

double complex phi(N,N),P(N,N),var(N,N),ii 

ii=cmplx(0, 1) 
do nn=l,time 

call variation(N,a,b,c,phi,var) 
do 1=1, N 
do ]=i,N 

if (] .ne.i)then 

P(i,])=P(i,]) -0.5d0*dt*var(i,] ) 
phi(i,])=phi(i,] )+dt*conjg (P(i,j)) 
phi(] ,i)=conjg(phi(i,] )) 

else 

P(i,i)=P(i,i) -0.5d0*dt*var(i,i) 
phi(i, i)=phi(i,i)+dt*conjg (P(i,i)) 
phi(i,i)=phi(i,i) -ii*aimag (phi(l, 1) ) 

endif 

enddo 
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enddo 

c.last step of leap frog. 

call variation(N,a,b,c,phi,var) 
do i=l,N 
do ]=i,N 

if (] .ne.i)then 

P(i,])=P(i,]) -0.5d0*dt*var(i,] ) 
P(] ,i)=conjg(P(i,] )) 

else 

P(i,i)=P(i,i) -0.5d0*dt*var(i,i) 
P(i,i)=P(i,i) -ii*aimag(P(i,i) ) 

endif 

enddo 

enddo 

enddo 

return 

end 


c.generation of Gaussian noise for the field P 

subroutine gaussian(idum,N,P) 

implicit none 
integer N,mu,i,],idum 
double precision pi,phi,r,ran2 
double complex ii,P(N,N) 

pi=dacos( -1.0d0) 
ii=cmplx(0, 1) 
do i=l,N 

phi=2 . 0d0*pi* ran2(idum) 
r=dsqrt( -2.0d0*dlog(1.0d0- ran2(idum))) 
P(i,i)=r*dcos(phi) 
enddo 
do i=l,N 

do ]=i+l,N 

phi=2 . 0d0*pi* ran2(idum) 

r=dsqrt ( -1 .0d0*dlog ( 1.0d0- ran2(idum))) 

P(i,] )=r*dcos (phi)+ii*r*dsin(phi) 

P(],i)=conjg(P(i,])) 

enddo 

enddo 

return 

end 


c.the jackknife estimator. 

subroutine jackknife binning(TMC,f,average,error) 

implicit none 

integer i,j,TMC,zbin,nbin 

double precision xm 

double precision f(1:TMC),sumf,y(l:TMC) 
double precision sig0,sig,error,average 

sig0=0.0d0 
sumf=0.0d0 
do i=l,TMC 

sumf=sumf+f(i) 

enddo 

xm=sumf/TMC 
c do zbin=l,TMC-l 
zbin=l 

nbin=int(TMC/zbin) 
sig=0.0d0 
do i=l,nbin,l 
y(i)=sumf 
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do ]=l,zbin 

y(i)=y(i)-f((i-l)*zbin+] ) 

enddo 

y(i)= y(i)/(TMC-zbin) 

sig=sig+( (nbin-1.0d0)/nbin)*(y(i) -xm)*(y(i)-xm) 

enddo 

sig=sig 

sig=dsqrt(sig) 
if (sig0 .It. sig) sig0=sig 
c enddo 

error=sig0 
average=xm 

return 

end 


c.the random number generator ran2. 

function ran2(idum) 

implicit none 

integer idum,IMl,IM2,IMMl,lAl,IA2,IQl,IQ2,IRl,IR2,NTAB,NDIV 
real AM,EPS,RNMX 
double precision ran2 

pa rameter ( IM1=2147483563 , IM2=2147483399 , AM=1 . /IMl,IMM1=IM1- 1 , 
IA1=40014 , IA2=40692 , 101=53668 , 102=52774,IR1=12211 , 
IR2=3791 , NTAB=32 ,NDIV=1+IMM1/NTAB, EPS=1 .2E-7 , RNMX=1 . - EPS) 
integer idum2,],k,iv(NTAB),iy 
SAVE iv,iy,idum2 

DATA idum2/123456789/ , iv/NTAB*0/ , iy/0/ 

if (idum.le.0) then 

idum=max( -idum, 1) 
idum2=idum 
do ]=NTAB+8,1, -1 
k=idum/I01 

idum=IAl*(idum-k*I01)-k*IRl 
if (idum.lt. 0) idum=idum+IMl 
if (j.le.NTAB) iv(])=idum 

enddo 

iy=iv(l) 

endif 

k=idum/I01 

idum=IAl*(idum-k*I01)-k*IRl 
if (idum. It. 0) idum=idum+IMl 
k=idum2/I02 

idum2=IA2*(idum2-k*I02)-k*IR2 
if (idum2.lt.0) idum2=idum2+IM2 
:j=l+iy/NDIV 
iy=iv(])-idum2 
iv(])=idum 

if (iy.lt. 1) iy=iy+IMMl 
ran2=min (AM*iy,RNMX) 

return 
end 


c.hot start. 

subroutine hot(N,idum,inn,phi,P) 

implicit none 

integer lambda,i,j,N,d,idum 
double complex phi(N,N),P(N,N) 
double precision xx,y,inn,interval 

do i=l,N 
do ]=i,N 

if (] .ne.i) then 
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xx=interval(idum,inn) 
y=interval(idum,inn) 
phi(i,] )=cmplx(xx,y) 
phi(] ,i)=cmplx(xx, -y) 
xx=interval(idum,inn) 
y=interval(idum,inn) 
P(i,] )=cmplx(xx,y) 

P(] ,i)=cmplx(xx, -y) 
else 

xx=interval(idum,inn) 
phi(i,])=xx 
xx=interval(idum,inn) 
P(i,])=xx 

endif 

enddo 

enddo 

return 

end 


c.interval. 

function interval(idum,inn) 

implicit none 

double precision interval,inn,ran2 
integer idum 

interval=ran2(idum) 
interval=interval+interval-l .0d0 
interval=interval*inn 

return 

end 

c.cold start. 

subroutine cold(N,phi) 
implicit none 
integer lambda, i,j , N 
double complex phi(N,N) 

do i=l,N 
do ]=1,N 

phi(i,] )=cmplx(0,0) 

enddo 

enddo 

return 

end 


c.adjusting interval. 

subroutine adj ust_inn(cou,pa,dt,time,Rej ec,Accept, 

& nn,ta rget_pa_high,ta rget_pa_low,dt_max,dt_min,inc,dec) 

implicit none 


double precision dt,pa,Rejec,Accept 
integer time,cou,coul 

integer nn 

double precision target_pa_high,target_pa_low,dt_max,dt_min,inc, 
& dec,rhol,rho2,dtnew 

c.pa acceptance rate. 

pa=(Accept)/(Rej ec+Accept) 
coul=mod(cou,nn) 

if (coul.eq.0)then 

c.fixing the acceptance rate between 90 % 70 %. 

if (pa .ge.targetpahigh) then 
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dtnew=dt*inc 

if (dtnew.le.dt_max)then 
dt=dtnew 

else 

dt=dt_max 

endif 

endif 

if (pa.le.targetpalow) then 
dtnew=dt*dec 

if (dtnew.ge.dt_min)then 
dt=dtnew 

else 

dt=dt_min 

endif 

endif 

endif 

return 

end 
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program my_phi_four_on_lattice 

implicit none 

integer N,idum,time,cou,nn,kk,ith,imc,ico,Tth,Tmc,Tco 
parameter (N=16) 

parameter (Tth=2**13,Tmc=2**14,Tco=2**3) 

double precision dt,kappa,g,phi(N,N),P(N,N),lambda_l,mu0_sq_l 
double precision mass,linear,kinetic,potential,act,Ham,variationH, 
& quartic 

double precision target_pa_high,target_pa_low,dt_max,dt_min,inc 
& ,dec,inn,pa,accept,reject 

real x0 

double precision ac(Tmc),ac_average,ac_error,cv(Tmc),cvaverage, 

& cv_error,lin(Tmc),lin_average,lin_error,susc(Tmc),susc_average, 

& susc_error,ac2(Tmc),ac2_av,ac2_er,ac4(Tmc),ac4_av,ac4_er,binder, 
& binder_e 

c.initialization of random number generator. 

idum=- 148175 
X0=0.0 

idum=idum-2*int(secnds(x0)) 

c.parameters. 

Iambda_l=0.5d0 
do kk=0,15 

mu0_sq_l=-l . 5d0+kk*0 .Id0 

kappa=dsq rt (8 . 0d0*lambda_l+ ( 4. 0d0+mu0_sq_l )*( 4. 0d0+mu0_sq_l )) 

kappa=kappa/(4.0d0*lambda_l) 

kappa=kappa- U ■ 0d0+mu0_sq_l )/( 4. 0d0*lambda_l ) 

g=kappa*kappa*lambda_l 

c.initialization of phi and P. 


inn=1.0d0 

call hot(N,idum,inn,phi,P) 
c.parameters of molecular dynamics 


time=10 

dt=0.01d0 


c 


accepts including flips, rejects and the acceptance rate pa 


Reject=0.0d0 
Accept=0.0d0 
pa=0 .0d0 

c.the acceptance rate is fixed in [0.7,0.9] such that dt is in [0.0001,1].... 

ta rget_pa_high=0 .90d0 

ta rget_pa_low=0 .70d0 

dt_max=l .0d0 

dt_min=0 .0001d0 

inc=1.2d0 

dec=0.8d0 

nn=l 


c.thermalization. 

do ith=l,Tth 

call metropolis(time,dt,N,kappa,g,idum,accept,reject, 

& variationH,P,phi) 

call adj ust_inn(cou,pa,dt,time,Rej ect,Accept, 

& nn,ta rget_pa_high,ta rget_pa_low,dt_max,dt_min,inc,dec) 

call action(N,kappa,g,P, phi,mass,linear,kinetic,potential, 

& act,Ham,quartic) 
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write ( 9+kk ,*) ith,act,Ham,variationH,pa,dt 

enddo 

c.Monte Carlo evolution. 

do imc=l,Tmc 
do ico=l,Tco 

call metropolis(time,dt,N,kappa,g,idum,accept,reject, 

& variationH,P,phi) 

call ad]ust_inn(cou,pa,dt,time,Rej ect,Accept, 

& nn,ta rget_pa_high,ta rget_pa_low,dt_max,dt_min,inc,dec) 

enddo 

call action(N,kappa,g, P,phi,mass,linear,kinetic,potential, 

& act,Ham,quartic) 

ac(imc)=act 
lin (imc)=dabs (linear) 
ac2(imc)=linear*linear 
ac4(imc)=linear*linear*linear*linear 
write ( 9+kk ,*) imc+Tth,act,Ham,va riationH,pa,dt 
enddo 


c.observables. 

c.action. 

call jackknife_binning(Tmc,ac,ac_average,ac_error) 
write ( 50 ,*)mu0_sq_l,lambdal,kappa,g,acave rage,ace rro r 
c.specific heat. 


do imc=l,Tmc 

cv(imc)=ac(imc)-ac_average 
cv(imc)=cvUmc)**(2.0d0) 

enddo 

call jackknife_binning(Tmc,cv,cv_average,cv_error) 
write ( 60 ,*)mu0_sq_l,lambdal,kappa,g,cvave rage,eve r ro r 


c.magnetization. 

call jackknife_binning(Tmc,lin,lin_average,lin_error) 
write ( 70 ,*)mu0_sq_l,lambdal,kappa,g,linave rage,lin_ 
c.susceptibility. 


do imc=l,Tmc 

susc(imc)=lin(ime)-lin_average 
suscUmc)=susc(imc)**(2 .0d0) 

enddo 

call jackknife_binning(Tmc,susc,susc_average,susc_error) 
write ( 80 ,*)mu0_sq_l,lambdal,kappa,g,suscave rage,susce r ro r 

c.Binder cumulant. 

call jackknife_binning(Tmc,ac2,ac2_av,ac2_er) 
write ( 81 ,*)mu0_sq_l,lambdal,kappa,g,ac2_av,ac2_e r 
call jackknife_binning(Tmc,ac4,ac4_av,ac4_er) 
write ( 82 ,*)mu0_sq_l,lambdal,kappa,g,ac4_av,ac4_e r 
binder=l .0cl0-ac4_av/ (3.0d0*ac2_av*ac2_av) 
binder_e=-ac4_e r/ (3 . 0d0*ac2_av*ac2_av ) 

& +2. 0d0*ac4_av*ac2_er/ (3 .0d0*ac2_av*ac2_av*ac2_av) 

write ( 90 ,*)mu0_sq_l,lambdal,kappa,g,binde r,binde re 
enddo 

return 

end 

subroutine metropolis(time,dt,N,kappa,g,idum,accept,reject, 

& variationH,P,phi) 

implicit none 
integer time,N,idum 

double precision dt,kappa,g,accept,reject,P(N,N),phi(N,N), 

& va riationH,P0(N,N),phi0(N,N),r,ran2,probability 

double precision mass,linear,kinetic,potential,act,Ham,quartic 

call gaussian(N,idum,P) 

P0=P 
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phi0=phi 

call action ( N, kappa, g,P, phi,mass,linear,kinetic,potential,act,Ham, 
& quartic) 

va riationH=-Ham 

call leap t rog(time,dt,N,kappa,g,P,phi) 

call action ( N, kappa, g,P, phi,mass,linear,kinetic,potential,act,Ham, 
& quartic) 

va riationH=variationH+Ham 

if (variationH.lt.0.0d0)then 
accept=accept+l .0d0 

else 

probability=dexp(-va riationH) 
r=ran2(idum) 

if ( r.lt.probability)then 
accept=accept+l .0d0 
else 
P=P0 

phi=phi0 

rej ect=rej ect+1 .0d0 

endif 

endif 

return 

end 

subroutine gaussian(N,idum,P) 

implicit none 
integer N,i,j,idum 

double precision P(N,N),ph,r,pi,ran2 

pi=dacos( -1.0d0) 
do i=l,N 
do ]=1,N 

r=dsqrt ( -2 .0d0*dlog ( 1.0d0- ran2(idum))) 
ph=2.0d0*pi*ran2(idum) 

P(i,])=r*dcos(ph) 

enddo 

enddo 

return 

end 

subroutine leapt rog(time,dt,N,kappa,g,P,phi) 
implicit none 
integer time,N,nn,i,] 

double precision kappa,g,phi(N,N),P(N,N),torce(N,N),dt 
do nn=l,time 

call scalar_torce(N,phi,kappa,g,torce) 
do i=l,N 
do ]=1,N 

P(i,])=P(i,]) -0 .5d0*dt*torce(i, ]) 
phi(i,])=phi(i,])+dt*P(i,]) 

enddo 

enddo 

call scalar_torce(N,phi,kappa,g,torce) 
do i=l,N 
do ]=1,N 

P(i,])=P(i,]) -0.5d0*dt*torce(i,] ) 

enddo 

enddo 

enddo 


return 

end 
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subroutine scala r_force(N,phi,kappa,g,force) 

implicit none 

integer N,i,],ip(N),im(N) 

double precision phi(N,N),kappa,g,force(N,N) 
double precision forcel,force2,force3 

call ipp(N,ip) 
call imm(N,im) 
do i=l,N 
do ]=1,N 

forcel=phi(ip(i),])+phi(im(i),j)+phi(i,ip(]))+phi(i,im(])) 

forcel=-2.0d0*kappa*forcel 

force2=2 .0d0*phi(i,] ) 

force3=phi(i,])*(phi(i,])*phi(i,]) -1.0d0) 

force3=4.0cl0*g*force3 

force(i,])=forcel+force2+force3 

enddo 

enddo 

return 

end 

subroutine action (N,kappa,g,P,phi,mass,linear,kinetic,potential, 
& act,Ham,quartic) 

implicit none 
integer N,i,],ip(N) 
double precision kappa,g 

double precision phi(N,N),P(N,N),act,potential,mass,kinetic, 

& kineticH,ham,linear,quartic 

call ipp(N,ip) 
kinetic=0 .0d0 
mass=0.0d0 
kineticH=0 .0d0 
potential=0.0d0 
linear=0.0d0 
quartic=0.0d0 
do i=l,N 
do ]=1,N 

linear=linear+phi(i,]) 

quartic=quartic+phi(i,])*phi(i,])*phi(i,])*phi(i,]) 
kinetic=kinetic+phi(i,])*(phi(ip(i),])+phi(i,ip(]))) 
mass=mass+phi(i,])*phi(i,]) 
potential=potential 

& +(phi(i,])*phi(i,]) -1.0d0)*(phi(i,] )*phi(i,]) -1.0d0) 

kineticH=kineticH+P(i,])*P(i,]) 

enddo 

enddo 

kinetic=-2 . 0d0*kappa* kinetic 
potential=g*potential 
act=kinetic+mass+potential 
kineticH=0 . 5d0*kineticH 
ham=kineticH+act 

return 

end 

subroutine ipp(N,ip) 
implicit none 
integer ip(N),i,N 

do i=l,N-l 
ip(i)=i+l 
enddo 
ip(N)=l 



QT' QT' 
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return 

end 

subroutine imm(N,im) 
implicit none 
integer im(N),i,N 

do i=2,N 

enddo 

im(l)=N 

return 

end 


c.the jackknife estimator. 

subroutine jackknife binning(TMC,f,average,error) 

implicit none 

integer i,j,TMC,zbin,nbin 

double precision xm 

double precision f (1:TMC),sumf,y(l:TMC) 
double precision sig0,sig,error,average 

sig0=0.0d0 
sumf=0.0d0 
do i=l,TMC 

sumf=sumf+f(i) 

enddo 

xm=sumf/TMC 
c do zbin=l,TMC-l 
zbin=l 

nbin=int(TMC/zbin) 
sig=0.0d0 
do i=l,nbin,l 
y(i)=sumf 
do j=l,zbin 

y(i)=y(i)-f((i-l)*zbin+j ) 

enddo 

y(i)= y(i)/(TMC-zbin) 

sig=sig+((nbin- 1.0d0) /nbin)*(y(i)-xm)*(y(i)-xm) 

enddo 

sig=sig 

sig=dsqrt(sig) 
if (sig0 .It. sig) sig0=sig 
c enddo 

error=sig0 
average=xm 

return 

end 


c.the random number generator ran2. 

function ran2(idum) 

implicit none 

integer idum,IMl,IM2,IMMl,lAl,IA2,101,102,IRl,IR2,NTAB,NDIV 
real AM,EPS,RNMX 

double precision ran2 

pa rameter ( IM1=2147483563 , IM2=2147483399 ,AM=1 . /IMl,IMM1=IM1- 1 , 
IA1=40014 , IA2=40692 , 101=53668 , 102=52774,IR1=12211 , 
IR2=3791 , NTAB=32 , NDIV=l-i-IMMl/NTAB, EPS=1 .2E- 7 , RNMX=1 . - EPS) 
integer idum2,j,k,iv(NTAB),iy 
SAVE iv,iy,idum2 

DATA idum2/123456789/ ,iv/NTAB*0/, iy/0/ 


if (idum.le.0) then 







File: /home/ydri/Desktop/TP_QFT/codes/phi-four-on-lattice.f 


Page 6 of 7 


idum=max( -idum, 1) 
idum2=idum 
do ]=NTAB+8,1, -1 
k=idum/IQl 

idum=IAl*(idum-k*IQl)-k*IRl 
if (idum.lt. 0) idum=idum+IMl 
if (j.le.NTAB) iv(])=idum 

enddo 

iy=iv(l) 

endif 

k=idum/IQl 

idum=IAl*(idum-k*IQl)-k*IRl 
if (idum. It. 0) idum=idum+IMl 
k=idum2/IQ2 

idum2=IA2*(idum2-k*IQ2)-k*IR2 

if (idum2.lt.0) idum2=idum2+IM2 

:j=l+iy/NDIV 

iy=iv(])-idum2 

iv(])=idum 

if (iy.lt. 1) iy=iy+IMMl 
ran2=min (AM*iy,RNMX) 

return 

end 


c.hot start. 

subroutine hot(N,idum,inn,phi,P) 
implicit none 
integer lambda,i,j,N,idum 
double precision phi(N,N),P(N,N) 
double precision inn,interval 

do i=l,N 
do ]=1,N 

phi(i,])=interval(idum,inn) 
P(i,])=interval(idum,inn) 

enddo 

enddo 

return 

end 


c.adjusting interval. 

subroutine adj ust_inn(cou,pa,dt,time,Rej ect,Accept, 

& nn,ta rget_pa_high,ta rget_pa_low,dt_max,dt_min,inc,dec) 

implicit none 


double precision dt,pa,Reject,Accept 
integer time,cou,coul 

integer nn 

double precision target_pa_high,target_pa_low,dt_max,dt_min,inc, 
& dec,rhol,rho2,dtnew 

c.pa acceptance rate. 

pa=(Accept)/(Reject+Accept) 
coul=mod(cou,nn) 

if (coul.eq.0)then 

c.fixing the acceptance rate between 90 % 70 %. 

if (pa .ge.targetpahigh) then 
dtnew=dt*inc 

if (dtnew.le.dt_max)then 
dt=dtnew 

else 

dt=dt_max 

endif 

endif 
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if (pa.le.targetpalow) then 
dtnew=dt*dec 

if (dtnew.ge.dt_min)then 
dt=dtnew 

else 

dt=dt_niin 

endif 

endif 

endif 

return 

end 


c.interval. 

function interval(idum,inn) 

implicit none 

double precision interval,inn,ran2 
integer idum 

interval=ran2(idum) 
interval=interval+interval-l .0d0 
interval=interval*inn 

return 

end 
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program my_metropolis_scalar_multitrace 

implicit none 

integer N,i,k,idum,ither,Tther,imont,ico,tmo,Tmont,Tco,counter, 

& Fowl,Pow2,Pow3 

parameter (N=10) 

pa ramete r ( powl=20 , pow2=20 ,pow3=5) 
pa rameter (Tther=2**powl,Tmont=2**pow2,Tco=2**pow3) 
double precision a,b,c,d, g ,at,bt,ct,eta,v22,v41,v21,ap,bp,cp,dp,e, 
& ep,fp 

double precision ran2,inn,interval,accept,reject,pa,t_l,t_2 

double precision lambda(N) 

double precision actio,actio0,suml,sum2,sum4,sumv,actiol,actio2, 

& actio4 

double precision ac(Tmont),ac_average,ac_error 
double precision id,ide(Tmont),ide_average,ide_error 
double precision cv(Tmont),cv_average,cv_error 
double precision va(Tmont),va_average,va_error 
double precision p0(Tmont),p0_average,p0_error 
double precision pt(Tmont),pt_average,pt_error 
double precision p4(Tmont),p4_average,p4_error 
double precision su(Tmont),suaverage,suerror 
double precision sus(Tmont),susaverage,suserror 
real x0 


call cpu_time(t_l) 

c.initialization of the random number generator 

idum=- 148175 
X0=0.0 

idum=idum-2*int(secnds(x0)) 


c.parameters of the model. 

c.kinetic parameter:the pure quartic matrix model is obtained by setting at=0 

at=l .0d0 

a=at/dsqrt(1.0d0*N) 

c.Seamann's values. 

v21=-1.0d0 

v22=0.0d0 

v41=1.5d0 

c.Ydri's proposal. 

c v21=1.0d0 

c v22=1.0d0/8.0d0 

c v41=0.0d0 

c.principal multitrace coupling. 


eta=v22-0.75d0*v41 
d=-2.0d0*eta*at*at*N 
d=d/3.0d0 
e=d 

c.further multitrace couplings (odd terms) 

ap=4.0d0*at*at*v22/3 .0d0 

dp=-2.0d0*at*at*v22/3.0d0 

dp=dp/N 

cp=- 2. 0d0*at*at*N*v41/3 .0d0 
bp=-at*dsqrt (1.0d0*N)*v21/2 .0d0 


c.ep and fp are included in c and b respectively.... 

ep=at*at*N*N*v41/6 .0d0 
f p=at*N*dsq rt ( 1. 0d0*N)*v21/2 .0d0 

c.quartic parameter: here c is C=c+ep of note. 

ct=1.0d0 

c=N*N*ct 

c.mass parameter: here b is B=b+fp of note. 

do k=0,0 

bt=-5.0d0+k*0.1d0 
b=N*dsqrt (1 .0d0*N)*bt 

c.the parameters b and c in terms of g: the single parameter of the quartic matrix model 
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c g=1.0d0 

c b=-N/g 

c c=N 

c c=c/(4.0d0*g) 

c.initialization of the eigenvalues... 


inn=1.0d0 
do i=l,N 

lambda(i)=interval(idum,inn) 

enddo 


c 


accepts including flips, rejects and the acceptance rate pa 


Reject=0.0d0 
Accept=0.0d0 
pa=0 .0d0 


c.thermalization. 

do ither=l,Tther 

call standardmetropolis(N,ap,b,bp,c,cp,d,dp,ep,fp,lambda, 

& accept,reject,idum,inn,pa) 

call action(N,ap,b,bp, c,cp,d,dp,ep,fp,lambda,actio,actio0, 

& suml,sum2,sum4,sumv,id,actiol,actio2,actio4) 

write (*,*jither,actio0,actio, dabs (suml),sum2,sum4,id,pa,inn 
write(7, *)ither,actio0,actio, dabs (suml),sum2,sum4,sumv,id 
& ,pa,inn 

enddo 

c.monte carlo evolution. 

counter=0 
do imont=l,Tmont 

c.removing auto-correlations by separating data points by tco monte carlo setps 

do ico=l,Tco 

call standard_metropolis(N,ap,b,bp,c,cp,d,dp,ep,fp,lambda 
& ,accept,reject,idum,inn,pa) 

enddo 

c.construction of thermalized observables. 

call action(N,ap,b,bp, c,cp,d,dp,ep,fp,lambda,actio,actio0, 

& suml,sum2,sum4,sumv,id,actiol,actio2,actio4) 

c if ((id.ge.0.8d0).and.(id.le.l.2d0)jthen 


counter=counter-(-l 

ac(counter)=actio0+actiol 

ide(counter)=id 

va(counter)=sumv 

su(counter)=dabs(suml) 

p0(counter)=suml*suml/(N*N) 

pt(counter)=sum2/N 

p4(counter)=sum4 

write(* ,*)imont,counter,sum2,sum4,id 
write(8, *)imont,counter,sum2,sum4,id 


c.eigenvalues. 

write ( 150-i-k, *) counte r, lambda 

c endif 

enddo 


c. measurements. 

Tmo=counter 

c. action and Vandermonde. 

call jackknife_binning(Tmo,ac,ac_average,ac_error) 
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write ( 10 ,*)bt,ct,d,a c_ave rage,ace r ro r 

call ]ackknife_binning(Tmo,va,va_average,va_e rror) 

write ( 11 ,*)bt,ct,d,va_ave rage,va_e r ro r 

c.identity. 

call ]ackknife_binning(Tmo,ide,ide_average,ide_error) 
write ( 12 ,*)bt,ct,d,ideave rage,idee rror 
write(* ,*)bt,ct,d,ide_average,ide_error, "identity" 
c.power in zero modes, total power and quartic term 


call ]ackknife binning(Tmo,p0,p0_average,p0_error) 
write ( 13 ,*)bt,ct,d,p0_ave rage,p0_e r ro r 
call ]ackknife_binning(Tmo,pt,pt_average,pt_error) 
write ( 14 ,*)bt,ct,d,pt_ave rage,pt_e r ro r 
write(*,*)bt,ct,d,pt_average,pt_error, "total power" 
call ]ackknife_binning(Tmo,p4,p4_average,p4_error) 
write ( 15 ,*)bt,ct,d,p4_ave rage,p4_e r ro r 

c.magnetization and susceptibility. 

call ]ackknife_binning(Tmo,su,su_average,su_error) 
write ( 16 ,*)bt,ct,d,s u_ave rage,su_e r ro r 
do i=l,Tmo 

sus(i)= (su(i)-su_average)*(su(i)-su_average) 

enddo 

call ]ackknife_binning(Tmo,sus,sus_average,sus_error) 
write ( 17 ,*)bt,ct,d,s u save rage,su s_e rror 

c.specific heat. 

do i=l,Tmo 

cv(i)=(ac(i)-ac_average)**2 

enddo 

call ]ackknife_binning(Tmo,cv,cv_average,cv_error) 
write ( 20 ,*)bt,ct,d,cv_ave rage,ev e r ro r 

enddo 


c.epu time and detail of simulation. 

call cpu_time(t_2) 

write(99, *)N,d,bt,ct,tmont,tmo,tco,tther,t_2-t_l 

return 

end 


c.metropolis algorithm. 

subroutine standardmetropolis(N,ap,b,bp,c,cp,d,dp,ep,fp,lambda 
& ,accept,reject,idum,inn,pa) 

implicit none 
integer N,i,idum 

double precision lambda(N),var,pro,r,b,c,d,accept,reject,ran2, 

& h,inn,interval,pa,ap,bp,cp,dp,ep,fp 


do i=l,N 


c.variation of the action. 

h=interval(idum,inn) 

call variation(N,ap,b,bp,c,cp,d,dp,ep,fp,i,h,lambda,Var) 
c.metropolis accept-reject step. 


if (var.gt.0.0d0)then 

pro=dexp(-var) 
r=ran2(idum) 
if (r.lt. pro) then 

lambda (i) =lambda (i)-i-h 
accept=accept-Hl .0d0 
else 

re j ect= re j ect-rl . 0d0 

endif 

else 

lambda (i) =lambda (i)-i-h 
accept=accept-i-l .0d0 

endif 

enddo 

c.adjusting the interval inn 





















QT' QT' 
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call ad]ust_inn(pa,inn,Reject.Accept) 

return 

end 


c.variation of the action. 

subroutine variation(N,ap,b,bp,c,cp,d,dp,ep,fp,i,h,lambda,Var) 

implicit none 
integer N,i,k 

double precision lambda(N),var,b,c,d,h,ap,bp,cp,dp,ep,fp 
double precision dsum2,dsum4,sum2,dvand,dd,dvande 
double precision suml,sum3,varl,var2,var3,var4 

dsum2=h*h+2 . 0d0*h*lambda (i) 
dsum4=6.0d0*h*h*lambda(i)*lambda(i) 

+4.0d0*h*lambda(i)*lambda(i)*lambda(i)+4.0d0*h*h*h*lambda(i) 
+h*h*h*h 
sum3=0.0d0 
sum2=0.0d0 
suml=0.0d0 
do k=l,N 

sum3=sum3+lambda(k)*lambda(k)*lambda(k) 
sum2=sum2+lambda(k)*lambda(k) 
suml=suml+lambda(k) 

enddo 

dvand=0 .0d0 
do k=i+l,N 
dd=1.0d0 

dd=dd+h/(lambda(i)-lambda(k)) 
dd=dabs(dd) 
dvand=dvand+dlog(dd) 

enddo 

dvand=-dvand 
dvande=0 .0d0 
do k=l,i-l 
dd=1.0d0 

dd=dd+h/(lambda(i)-lambda(k)) 
dd=dabs(dd) 

dvande=dvande+dlog(dd) 

enddo 

dvande=-dvande 
dvand=dvand+dvande 
dvand=2 .0d0*dvand 

va r=b*dsum2+c*dsum4+2 .0d0*d*dsum2*sum2+d*dsum2*dsum2+dvand 
va rl=h*h+2 . 0d0*h*suml 
va r4=va rl*va rl+2 . 0d0*suml*suml*va rl 
varl=bp*varl 
var4=dp*var4 

var2=h*sum2+(suml+h)*dsum2 
var2=ap*var2 

var3=3 .0d0*h*lambda (i)*lambda (i)+3 .0d0*h*h*lambda(i)+h*h*h 
va r3=va r3*(suml+h) 
va r3=va r3+h*sum3 
var3=cp*var3 

va r=va r+va rl+va r2+va r3+va r4 

return 
end 


c.action. 

subroutine action(N ,ap,b,bp,c,cp,d,dp,ep,fp,lambda,actio,actio0, 

& suml,sum2,sum4,sumv,id,actiol,actio2,actio4) 

implicit none 
integer N,i,] 

double precision lambda(N),b,c,d,actio,actio0,suml,sum2,sum4,sumv, 
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& id 

double precision sum3,actiol,ap,bp,cp,dp,idl,ep,fp,actio2,actio4 

c.monomial terms. 

suml=O.0d0 
sum2=0.0d0 
sum3=0.0d0 
sum4=0.0d0 
do i=l,N 

suml=suml+lambda(i) 
sum2=sum2+lambda(i)*lambda(i) 
sum3=sum3+lambda(i)*lambda(i)*lambda(i) 
sum4=sum4+lambda(i)*lambda(i)*lambda(i)*lambda(i) 

enddo 

c.the multitrace model without odd terms. 

actio0=d*sum2*sum2+b*sum2+c*sum4 

actio=actio0 

c.odd multitrace terms 

actiol=bp*suml*suml+cp*suml*sum3+dp*suml*suml*suml*suml 
& +ap*sum2*suml*suml 

c.the multitrace model with odd terms. 

actio=actio+actiol 

c.adding the vandrmonde potential. 

sumv=0.0d0 
do i=l,N 
do ]=1,N 

if (i.ne.j )then 

sumv=sumv+dlog (dabs (lambda(i)-lambda(j))) 
endif 
enddo 
enddo 
sumv=-sumv 
actio=actio+sumv 


c.the quadratic and quartic corrections explicitly.... 

actio2=fp*sum2+bp*suml*suml 

actio4=ep*sum4+d*sum2*sum2+cp*suml*sum3+dp*suml*suml*suml*suml 
& +ap*sum2*suml*suml 

c.the schwinger-dyson identity. 

id=4.0d0*d*sum2*sum2-i-2 . 0d0*b*sum2-i-4.0d0*c*sum4 

id 1=2 . 0d0*bp*suml*suml-i-4 .0d0* (cp*suml*sum3+dp*suml*suml*suml*suml 
& -i-ap*sum2*suml*suml) 

id=id+idl 
id=id/(N*N) 


return 

end 


c.the jackknife estimator. 

subroutine jackknife_binning(TMC,f,average,error) 

implicit none 
integer i,j,TMC,zbin,nbin 
double precision xm 

double precision f (1:TMC),sumf,y(l:TMC) 
double precision sig0,sig,error,average 

sig0=0.0d0 
sumf=0.0d0 
do i=l,TMC 

sumf=sumf+f(i) 

enddo 

xm=sumf/TMC 
do zbin=l,TMC-l 
zbin=l 

nbin=int(TMC/zbin) 
sig=0.0d0 
do i=l,nbin,l 


c 
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y(i)=sumf 
do ]=l,zbin 

y(i)=y(i)-f((i-l)*zbin+] ) 

enddo 

y(i)= y(i)/(TMC-zbin) 

sig=sig+( (nbin-1.0d0)/nbin)*(y(i) -xm)*(y(i)-xm) 

enddo 

sig=sig 

sig=dsqrt(sig) 
if (sig0 .It. sig) sig0=sig 
c enddo 

error=sig0 

average=xm 

return 

end 


c.the random number generator ran2. 

function ran2(idum) 

implicit none 

integer idum,IMl,IM2,IMMl,lAl,IA2,IQl,IQ2,IRl,IR2,NTAB,NDIV 
real AM,EPS,RNMX 

double precision ran2 

pa rameter ( IM1=2147483563 , IM2=2147483399 , AM=1 . /IMl,IMM1=IM1- 1 , 
IA1=40014 , IA2=40692 , 101=53668 , 102=52774,IR1=12211 , 
IR2=3791 , NTAB=32 ,NDIV=1+IMM1/NTAB, EPS=1 .2E-7 , RNMX=1 . - EPS) 
integer idum2,],k,iv(NTAB),iy 
SAVE iv,iy,idum2 

DATA idum2/123456789/ , iv/NTAB*0/ , iy/0/ 

if (idum.le.0) then 

idum=max( -idum, 1) 
idum2=idum 
do ]=NTAB+8,1, -1 
k=idum/I01 

idum=IAl*(idum-k*101)-k*IRl 
if (idum.lt. 0) idum=idum-i-IMl 
if (j.le.NTAB) iv(])=idum 

enddo 

iy=iv(l) 

endif 

k=idum/I01 

idum=IAl*(idum-k*I01)-k*IRl 
if (idum. It. 0) idum=idum-i-IMl 
k=idum2/I02 

idum2=IA2*(idum2-k*I02)-k*IR2 
if (idum2.lt.0) idum2=idum2-i-IM2 
]=l-i-iy/NDIV 
iy=iv(])-idum2 
iv(])=idum 

if (iy.lt.l) iy=iy-i-IMMl 
ran2=min (AM*iy,RNMX) 

return 
end 


c.adjusting interval inn in such a way that the acceptance rate pa is fixed at 30 per 

cent. 


subroutine adjust_inn(pa,inn,Reject.Accept) 

implicit none 

double precision inn,pa,Reject,Accept 

pa=(Accept)/ (Reject-rAccept) 
if (pa. ge. 0.30) inn=inn*1.20d0 
if (pa. le. 0.25) inn=inn*0 .80d0 
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return 

end 


c.the interval. 

function interval(idum,inn) 

implicit none 

doubleprecision interval,inn,ran2 
integer idum 

interval=ran2(idum) 
interval=interval+interval-l .0d0 
interval=interval*inn 

return 

end 
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program myremez 
implicit none 

integer y,z,n,d, precision,!, counter,],nO 
parameter(n0=100) 

double precision lambdalow, lambda_high,e,tolerance 

double precision a0,a(n0),b(n0),c0,c(n0),dd(n0),coefficient(n0) 

parameter (tolerance=0.0001d0) 

character*100 degree, com 

character*50 hi 

LOGICAL THERE 

c.we choose the function to approximate, the range over which the rational approximation is to be 

calculated, and the precision used.... 


y=l 

z=2 

lambda_low=0 .0004d0 
lambda_high=l .0d0 
precision=40 

print*, "Approximating the functions x^{y/z} and x^{-y/z}:" 

& , "y=",y,"z=",z 

print*, "Approximation bounds:", lambda_low,lambda_high 
print*, "Precision of arithmetic:", precision 
write(* , *) "." 

c.... we start the iteration on the degree of approximation at n=d=6.... 

counter=0 

i=5 

14 i=i+l 

counter=counter+l 
print*, "ITERATION:", counter 
write(degree, 'II )' )i 
read (degree, '(i5)' )n 
read (degree, '(i5)' )d 

write(* ,*) "degrees of approximation", n,d 

c.we call AlgRemez by the command="./test y z n d lambda_low lambda_high precision". 

write(com, '(a,i5," ",i5," ",i5," ",i5," ",F10.5," ",F10.5," " 

&,i5," ",a)') "./test ",y,z,d,n,lambda_low,lambda_high 
& , precision, "" 

print*, "command:", com 
call system(com) 

c.we check whether or not the uniform norm is found. 

inquire(file='errorl.dat ' , exist=THERE) 

11 if ( THERE ) then 

write(*,*) "file exists!" 

else 

go to 11 
end if 

c.we read the uniform norm and test whether or not it is smaller than some tolerance, if it is not, 

we go back and repeat with increased degrees of approximation, viz n=n+l and d=d+l. 

open(unit=50+i,file=' errorl.dat' , status= 'old' ) 

read(50+i,555) e 

write(* ,*) "uniform norm", e 

write(* , *) "." 

555 format(lF20.10) 
close (50+i) 

if (e.gt. tolerance) go to 14 


c 


the solution for x^{y/z} 
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write(* ,*)" rational approximation of x^{y/z}" 
open(unit=60,file='approx.dat ' , status= 'old' ) 
do ]=l,2*n+l 

read(60,*)coefficient(] ) 

enddo 

c0=coefficient (1) 
write(* ,*) "c0=" ,c0 
do i=2,n+l 

c(i-l)=coefficient(i) 
dd(i-l)=coefficient(i+n) 

write(*,*)"i-l=",i-l, "c(i-l)=" , c(i-l) , "d(i-l)=" ,dd(i-l) 

enddo 


c.the solution for x^{-y/z}. 

write(* ,*)" rational approximation of x^{-y/z}" 
open(unit=61,file=' approxl.dat' ,status=' old' ) 
do ]=l,2*n+l 

read(61,*)coefficient(] ) 

enddo 

a0=coefficient (1) 
write(*,*)"a0=",a0 
do i=2,n+l 

a(i-l)=coefficient(i) 
b(i-l)=coefficient(i+n) 

write(*,*)"i-l=",i-l, "a(i-l)=", a(i-l) , "b(i-l)=" ,b(i-l) 

enddo 

return 

end 





File: /home/ydri/Desktop/TP_QFT/codes/conjugate-gradient.f 


Page 1 of 3 


program my_conjugate_gradient 

implicit none 

integer .counter,sig 

parameter (N=3,M=2) 

double precision A(N,N),v(N),sigma(M) 

double precision x(N),r(N),p(N),q(N) .product, productl,product2, 

& residue,tolerance 

double precision alpha,beta,alpha previous,beta previous,xii,xiiO, 
& beta_sigma(M),alpha_sigma(M),xi(M),xi_previous(M) 

double precision x_sigma(N,M),p_sigma(N,M),r_sigma(N,M) 
pa ramete r(tole rance=10 .0d-100 ) 

c.example input. 

call input(N,M,A,v,sigma) 

c.initialization. 


do i=l,N 

x(i)=0.0d0 
r(i)=v(i) 
do sig=l,M 

x_sigma(i, sig)=0.0d0 
enddo 
enddo 


c.we start with alpha(0)=0, beta(-l)=l, xi"'sigma(-l)=xi"'sigma(0)=l, alpha"'sigma(0)=0 and 

beta"'sigma(-l)=l. .. 


alpha=0 .0d0 
beta=1.0d0 
do sig=l,M 

xi_previous(sig)=l .0d0 
xi(sig)=1.0cl0 
alphasigma(sig)=0 .0d0 
beta_sigma(sig) =1 .0d0 

enddo 


c.starting iteration 

counter=0 


c 


choosing search directions 


13 do i=l,N 

p(i)=r(i)+alpha*p(i) 
do sig=l,M 

p_sigma(i,sig)=xi(sig)*r(i) 

& +alpha_sigma(sig)*p_sigma(i,sig) 

enddo 

enddo 

c.solving the sigma=0 problem. 

product=0.0d0 

productl=0.0d0 

c.the only matrix-vector multiplication in the problem 


do i=l,N 

q(i)=0.0d0 
do ]=1,N 

q(i)=q(i)+A(i,])*p(]) 

enddo 

product=product-i-p(i)*q(i) 

productl=productl+r(i)*r(i) 

enddo 

beta_previous=beta 
beta=-product 1/product 
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product2=0.0d0 
do i=l,N 

x(i)=x(i)-beta*p(i) 
r(i)=r(i)+beta*q(i) 
product2=product2+r(i)*r(i) 

enddo 

alphaprevious=alpha 
alpha=product2/productl 


c.solving the sigma problems. 

do sig=l,M 

c.the xi coefficients. 

xii0=alpha_previous*beta*(xi_previous(sig)-xi(sig)) 

& +xi_p revious(sig)*beta_p revious*( 1.0d0 - sigma(sig)*beta) 

xii=xi(sig)*xi_p revious(sig)*beta_p revious/xii0 
xi_p revious(sig)=xi(sig) 
xi(sig)=xii 

c.the beta coefficients. 

beta_sigma(sig)=beta*xi(sig)/xi_p revious(sig) 
c.the solutions and residues. 


do i=l,N 

x_sigma(i,sig)=x_sigma(i,sig)-beta_sigma(sig)*p_sigma(i,sig) 
r_sigma(i,sig)=xi(sig)*r(i) 

enddo 

c.the alpha coefficients. 

alpha_sigma(sig)=alpha 

alpha_sigma(sig)= alpha_sigma(sig)*xi(sig)*beta_sigma(sig) 
alpha_sigma(sig)=alpha_sigma(sig)/(xi_previous(sig)*beta) 

enddo 

c.testing whether or not the interation should be continued. 

counter=counter+l 
residue=0 .0d0 
do i=l,N 

residue=residue+r(i)*r(i) 

enddo 

residue=dsqrt( residue) 

if (residue. ge. tolerance) go to 13 

c.verification 1: if we set sigma=0 then xi must be equal 1 whereas the other pairs must be 

equal. 

write(* ,*) "verification 1" 
write(*,*)counter,xi(l) ,xi_previous (1) 
write (*,*)counte r,beta,beta_sigma( 1 ) 
write(*,*)counter,alpha,alpha_sigma(l) 

c.verification 2. 

write(* ,*) "verification 2" 
do i=l,N 

q(i)=0.0d0 
do ]=1,N 

q(i)=q(i)+A(i,])*x(]) 

enddo 

enddo 

write(* ,* ) "v" , V 
write(*,*)"q",q 

c.verification 3. 

write(* ,*) "verification 3" 

sig=l 

do i=l,N 

q(i)=sigma(sig)*x_sigma(i,sig) 
do ]=1,N 

q(i)=q(i)+A(i,])*x_sigma(],sig) 
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enddo 

enddo 

write(* ,*) "v" , V 
write (*,*)"q",q 

return 

end 


c.input. 

subroutine input(N,M,A,v,sigma) 

implicit none 
integer N,M 

double precision A(N,N),v(N),sigma(M) 

a(l,l)=1.0d0 

a(l,2)=2.0d0 

a(l,3)=0.0d0 

a(2,l)=2.0d0 

a(2,2)=2.0d0 

a(2,3)=0.0d0 

a(3,l)=0.0d0 

a(3,2)=0.0d0 

a(3,3)=3.0d0 

v(l)=1.0d0 

v(2)=0.0d0 

v(3)=10.0d0 

sigma(l)=1.0d0 

sigma(2)=2.0d0 

return 

end 
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program my_hybrid_susy_ym 

implicit none 

integer dim, N,M,M0,i,j,k,sp,Al,idum,time,time!,tmc0,TMC,TTH,idumG, 
& cou,nn 

parameter (dim=4,N=8,M0=5,M=6) 

parameter (timeT=2**14,TTH=2**ll,TMC=2**13) 

double precision gamma, mass,alpha,zeta,alphat 

double precision a0,a(M),b(M),c0,c(M0),d(M0) ,coefficient(2*M+l) 

& , epsilon 

double complex X(dim,N,N),P(dim,N,N) ,phi(2,N*N-l),Q(2,N*N-1) , 

& xx(2,N*N-l) 

double complex G(M,2,N*N-1),W(2,N*N-1),W0(2,N*N-1),xi(2,N*N-l) 
double precision inn,dt,interval, Rejec,Accept,pa 
double precision ham, action, actionB,actionF,kinB,kinF, 

& variationFI,YM,CS,H0,hamB,hamF 

real x0,t_l,t_2 

double complex var(dim,N,N),varF(dim,N,N) 

double precision varFI0, varFI(TMC), varFl average, varH error 

double precision h(TMC),h_average,h_error 

double precision ac(TMC),ac_average,ac_error 

double precision ac_B(TMC),acB_average,acB_error 

double precision ac_F(TMC),acF_average,acF_error 

double precision ym0(TMC),ym_average,ym_error 

double precision cs0(TMC),csaverage,cserror 

double precision ho0(TMC),hoaverage,hoerror 

double precision identity_av,identity_er 

double precision ta rget_pa_high,ta rget_pa_low,dt_max,dt_min,inc, 


& dec 
call cpu_time(t_l) 
c.opening output files 


open(10, action= 'WRITE' ) 
close(10) 

open(ll, action= 'WRITE' ) 
close(ll) 

open(12, action= 'WRITE' ) 
close(12) 

open(13, action= 'WRITE' ) 
close(13) 

open(14, action= 'WRITE' ) 
close(14) 

open(15, action= 'WRITE' ) 
close(15) 

open(16, action= 'WRITE' ) 
close(16) 

open(17, action= 'WRITE' ) 
close(17) 

open(18, action= 'WRITE' ) 
close(18) 


c.calling output of AlgRemez: M, M_0, c,d,a,b 

c.rational approximation of x^{l/4}. 


open(unit=60 , file= 'approx_x**+0.25_dat' , status= 'old' ) 
do ]=1,2*M0+1 

read(60,*)coefficient(] ) 

enddo 

c0=coefficient (1) 


c write(*,*)"c0=",c0 

do i=2,M0+l 

c(i-l)=coefficient(i) 
d(i-l)=coefficient(i+M0) 

c write(*,*)"i-l=",i-l,"c(i-l)=", c(i-l),"d(i-l)=",d(i-l) 

enddo 

c.rational approximation of x^{-l/2}. 
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open(unit=60 , file= 'approx_x**-0.5_dat' , status= 'old' ) 
do ]=1,2*M+1 

read(60,*)coefficient(] ) 

enddo 

a0=coefficient (1) 
c write(*,*)"a0=",a0 

do i=2,M+l 

a(i-l)=coefficient(i) 
b(i-l)=coefficient(i+M) 

c write(*,*)"i-l=",i-l,"a(i-l)=", a(i-l),"b(i-l)=",b(i-l) 

enddo 

c.shifting the no sigma problem of the conjugate gradient to the smallest mass which is presumably 

the least convergent mass... 

epsilon=b(l) 

if (epsilon. gt. d(l) )then 
epsilon=d (1) 

endif 

do i=l,M 

b(i)=b(i) -epsilon 
enddo 
do i=l,M0 

d(i)=d(i) -epsilon 

enddo 


c.initialization of random number generator 

idum=- 148175 
X0=0 

idum=idum-2*int(secnds(x0)) 

c.parameters. 

zeta=0.0d0 
mass=0.0d0 
gamma=l .0d0 
do k=0,0 

alphat=0.0d0-k*0.25d0 
alpha=alphat/dsqrt (1.0d0*N) 

c.initialization of X. 


inn=1.0d0 

call hot(N,dim,idum,inn,X) 
c call cold(N,dim,idum,X) 

c.initialization of the other fields from Gaussian noise. 

c call gaussian(idum,dim,N,P) 

c call gaussian_plus(idum,N,Q) 

c call gaussian_plus(idum,N,xi) 

c.here we use the coefficients c and d not the coefficients a and b. 

c call conjugate_gradient(dim,N,M0,zeta,X,c0,c,d,xi,G,phi,W, 

c & epsilon) 

c.molecular dynamics parameters: dt should be optimized in such a way that the acceptance 


rate pa is fixed in [0.7,0.9] and dt is fixed in [0.0001,1].... 


time=10 
dt=0.001d0 
Rejec=0.0d0 
Accept=0.0d0 
target_pa_high=0 .90d0 
ta rget_pa_low=0 .70d0 
dt_max=l .0d0 
dt min=0.0001d0 















QT' QT' QT' Q? Q? ■ Q? Q? Q? Q? Q? Q? Q? 
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inc=1.2d0 

dec=0.8d0 

nn=l 

c.testing the molecular dynamics part. 

c time=l 

c dt=0.001d0 

c do tmc0=l,timeT 

c call molecular_dynamics(N,dim,M,dt,time,gamma,mass,alpha, 
c & zeta,a0,a,b,X,P,phi,Q,van,varF,epsilon) 

c call sub_action(dim,N,M,a0,a,b,X,P,phi,Q,alpha,mass,gamma,zeta, 
c & ham,action,actions,actionF,kinB,kinF,YM,CS,H0,epsilon) 

c hamB=kinB+actionB 

c hamF=kinF+actionF 

c write(*,*)tmc0,ham,kinB,actions,hamB,kinF,actionF,hamF 

c write(7,*)tmc0,ham,kinB,actions,hamB,kinF,actionF,hamF 

c enddo 

c.thermalization. 

do tmc0=l,TTH 

call metropolis(N, dim, M,M0, gamma ,mass,alpha,zeta,dt,time,X, 
P,phi,Q,a0,a,b,c0,c,d,Re]ec,Accept,var,varF,variationFI, 
epsilon ,idum) 
cou=tmc0 

call ad]ust_inn(cou,pa,dt,time,Re]ec,Accept, 

nn,ta rget_pa_high,ta rget_pa_low,dt_max,dt_min,inc,dec) 
call sub_action( dim, N,M,a0,a,b,X,P,phi,Q,alpha,mass, gamma, 
zeta,ham, action, actions,actionF,kinB,kinF,YM,CS,H0, 
epsilon) 

va rFI0=dexp (- va riationFI) 

write(* ,*)tmc0, ham,action ,actionB,kinB,actionF,kinF, 
va riationFI, va rFI0, pa 

write(8, *)tmc0,ham, action ,actions,kinB,actionF,kinF, 
va riationFI, va rH0, pa 

enddo 

.monte carlo evolution. 

do tmc0=l,TMC 

call met ropolis(N, dim, M,M0, gamma ,mass,alpha,zeta,dt,time,X, 
P,phi,Q,a0,a,b,c0,c,d,Re]ec,Accept,var,varF,variationFI, 
epsilon ,idum) 
cou=tmc0 

call ad]ust_inn(cou,pa,dt,time,Rej ec,Accept, 

nn,ta rget_pa_high,ta rget_pa_low,dt_max,dt_min,inc,dec) 
call sub_action( dim, N,M,a0,a,b,X,P,phi,Q,alpha,mass, gamma, 
zeta,ham, action, actions,actionF,kinB,kinF,YM,CS,FIO, 
epsilon) 
ym0(tmc0)=YM 
cs0(tmc0)=CS 
ho0(tmc0)=FI0 
ac_B(tmc0)=actionB 
ac_F(tmc0)=actionF 
ac(tmc0)=action 
h(tmc0)=ham 

varFI(tmc0)=dexp( - va riationFI) 

write(* ,*)tmc0, ham,action ,actionB,kinB,actionF,kinF, 


& variationFI, varFI(tmc0) ,pa 

write(9, *)tmc0,ham, action ,actions,kinB,actionF,kinF, 
& va riationFI, va rFI (tmc0), pa 

enddo 

c.measu rements. 

c.the Flamiltonian. 
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call ]ackknife_binning(TMC,h,h_average,h_error) 
c write(*,*)alpha,gamma,mass,zeta,h_ave rage,h_e rro r 

open (10, status= 'OLD' , action= 'WRITE' , position= 'APPEND' ) 
write ( 10 ,*)alpha, gamma ,ma s s,zeta,h_ave rage,h_e r ro r 
close(10) 

c.we msut have <e^(-variationH)>=l. 

call ]ackknife binning(TMC,varH,varH average,varH_error) 
c write(*,*)alpha,gamma,mass,zeta,va rH_ave rage,va rH_e r ro r 

open (11, status='OLD' , action= 'WRITE' , position= 'APPEND' ) 
write ( 11 ,*)alpha ,gamma, mass,zeta,va rH_average,varH_error 
closeUl) 

c.the total action. 

call ]ackknife_binning(TMC,ac,ac_average,ac_error) 
c write(*,*)alpha,gamma,mass,zeta,ac_average,ac_error 

open (12, status= 'OLD' , action= 'WRITE' , position= 'APPEND' ) 
write ( 12, *)alpha, gamma, mass,zeta,ac_average,ac_error 
closeU2) 

c.the bosonic and pseudo-fermion actions and the yang-mills, chern-simons and harmonic 

oscillator terms .... 

call ]ackknife binning(TMC,ac_B,acB average,acB error) 
c write(*,*)alpha,gamma,mass,zeta,acB_average,acB_error 

open (13, status='OLD' , action= 'WRITE' , position= 'APPEND' ) 
write ( 13, *)alpha, gamma, mass,zeta,acB_average,acB_error 
closeU3) 

call ]ackknife_binning(TMC,ymO,ym_average,ym_error) 
c write(*,*)alpha,gamma,mass,zeta,ym_average,ym_error 

open(14, status= 'OLD' , action= 'WRITE' , position= 'APPEND' ) 
write ( 14, *)alpha, gamma, mass,zeta,ym_average,ym_error 
closeU4) 

call ]ackknife_binning(TMC,csO,cs_average,cs_error) 
c write(*,*)alpha,gamma,mass,zeta,cs_average,cs_error 

open (15, status= 'OLD' , action= 'WRITE' , position= 'APPEND' ) 
write ( 15, *)alpha, gamma, mass,zeta,cs_average,cs_error 
closeU5) 

call ]ackknife_binning(TMC,hoO,ho_average,ho_error) 
c write(*,*)alpha,gamma,mass,zeta,ho_average,ho_error 

open (16, status= 'OLD' , action= 'WRITE' , position= 'APPEND' ) 
write ( 16, *)alpha, gamma, mass,zeta,ho_average,ho_error 
close(16) 

call ]ackknife_binning(TMC,ac_F,acF_average,acF_error) 
c write(*,*)alpha,gamma,mass,zeta,acF_average,acF_error 

open (17, status= 'OLD' , action= 'WRITE' , position= 'APPEND' ) 
write ( 17, *)alpha, gamma, mass,zeta,acF_average,acF_error 
close (17) 

c.for the flat space supersymmetric model for which xi=0 the Schwinger-Dyson identity 

<4*gamma*YM-i-3*alpha*CS-i-2*mass*H0>=6(N^2-l) must hold... 

identity_av=4 . 0d0*gamma*ym_ave rage-i-3 . 0dO*alpha*cs_ave rage 
& -1-2. Od0*mass*ho_ave rage 

identity_av=identity_av/ (6 .OdO* (N*N-1 .OdO) ) 
identity_av=identity_av- 1.OdO 

identity_er=4 .0d0*gamma*ym_error-i-3 . 0d0*alpha*cs_error 
& -i-2.0d0*mass*ho_error 

identity_er=identity_er/ (6 .0d0* (N*N-1 .OdO) ) 
c write(*,*)alpha,gamma,mass,zeta,identity_av,identity_e r 

open (18, status= 'OLD' , action= 'WRITE' , position= 'APPEND' ) 
write ( 18 ,*)alpha ,gamma, mass,zeta,identity_av,identity_er 
close (18) 
enddo 

c.cpu time. 

call cpu_time(t_2) 

write(* ,*) "cpu_time=" , t_2-t_l 


return 

end 
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c.the Metropolis algorithm. 

subroutine metropolis(N, dim, M,M0, gamma ,mass.alpha,zeta,dt,time,X,P 
,phi,Q,a0,a,b,c0,c,d,Re]ec,Accept,var,varF,variationH, epsilon 
,idum) 

implicit none 

integer N,dim,M,M0,i,],mu,nu,k,l,idum,time,A1,sp 
double precision gamma, mass,alpha,zeta 
double precision inn,dt,ran2,Rejec,Accept 
double precision a0,a(M),b(M),c0,c(M0),d(M0) .epsilon 
double complex X(dim,N,N),X0(dim,N,N),P(dim,N,N), 


& P0(dim,N,N),phi(2,N*N-l),phi0(2,N*N-l),Q(2,N*N-1),Q0(2,N*N-1), 

& xi(2,N*N-l),G(M,2,N*N-1),W(2,N*N-1),W0(2,N*N-1) 

double complex var(dim,N,N),varF(dim,N,N) 

double precision variations,variationFI,probabilityS,probabilityFI, r 
double precision ham, action, actionB,actionF,kinB,kinF,YM,CS,HO, 

& hamB 

c.Gaussian initialization. 


call gaussian(idum,dim,N,P) 
call gaussian_plus(idum,N,Q) 
call gaussian_plus(idum,N,xi) 
phi=xi 

call con]ugate_gradient( dim, N,M,zeta,X,c0,c,d,phi,G,W0,W, 
& epsilon) 
phi=W0 


c.saving the initial configurations 


X0=X 

P0=P 

phi0=phi 

Q0=Q 

c.evaluation of the initial value of hamiltonian and action 

call sub_action( dim, N,M,a0,a,b,X,P,phi,Q,alpha,mass, gamma, zeta, 

& ham, action, actionB,actionF,kinB,kinF,YM,CS,HO, epsilon ) 
hamB=actionB+kinB 
va riationS=action 
va riationH=ham 


c.molecular dynamics evolution. 

call molecular_dynamics(N, dim, M,dt,time, gamma ,mass,alpha,zeta 
& ,aO,a,b,X,P,phi,Q,var,varF, epsilon) 

c.evaluation of the final value of hamiltonian and action and the differences 

call sub_action( dim, N,M,aO,a,b,X,P,phi,Q,alpha,mass, gamma, zeta, 

& ham, action, actionB,actionF,kinB,kinF,YM,CS,HO, epsilon ) 
hamB=actionB+kinB 


va riationS=action- variations 
va riationH=ham-variationH 

c.metropolis accept-reject step 

if (va riationH . It . 0.0d0) then 
accept=accept-i-l . 0d0 

else 

probabilityH=dexp(-variationH) 
r=ran2(idum) 

if ( r.lt.probabilityH)then 
accept=accept-i-l .OdO 
else 
X=X0 
P=P0 
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phi=phi0 

Q=Q0 

Re]ec=Re]ec+1.0d0 

endif 

endif 

return 

end 


c.the leap frog algorithm. 

subroutine molecular_dynamics(N ,dim, M,dt,time, gamma ,mass,alpha, 
& zeta,a0,a,b,X,P,phi,Q,va r,va rF, epsilon ) 

implicit none 

integer N,dim,M,i,],mu,nn,time,Al,Alb,sp 

double precision dt, gamma, mass,alpha,zeta,a0,a(M),b(M) .epsilon, 
& alp 

double complex X(dim,N,N) ,phi(2,N*N-l) ,P(dim,N,N) ,Q(2,N*N-1) , 
xx(2,N*N-l) ,var(dim,N,N),varF(dim,N,N) ,G(M,2,N*N-1) , 
W(2,N*N-1),W0(2,N*N-1) 


alp=1.0d0 
do nn=l,time 

call con]ugate_gradient(dim,N,M,zeta,X,a0,a,b,phi,G,W0,W, 
& epsilon) 

call boson_force(N,dim,gamma,mass,alpha,X,van) 
call fermion_force(N,dim,M,zeta,a0,a,b,X,G,varF) 
do i=l,N 
do ]=i,N 

do mu=l,dim 

P(mu,i,])=P(mu,i,]) -0.5d0*alp*dt*var(mu,i,] ) 

& -0.5d0*alp*dt*varF(mu,i,] ) 

X(mu,i,])=X(mu,i,])+alp*dt*conjg(P(mu,i,])) 
X(mu,],i)=conjg(X(mu,i,])) 

enddo 

enddo 

enddo 

do A1=1,N*N-1 
do sp=l,2 

Q(sp,Al)=Q(sp,Al) -0 .5d0*alp*dt*W(sp, Al) 
phi(sp,Al)=phi(sp,Al)+alp*dt*conjg(Q(sp,Al)) 

enddo 

enddo 

c.last step of the leap frog. 

call con]ugate_gradient(dim,N,M,zeta,X,a0,a,b,phi,G,W0,W, 
& epsilon) 

call boson_f 0 rce(N, dim , gamma ,mass,alpha,X,va r) 
call fermion_force(N,dim,M,zeta,a0,a,b,X,G,varF) 

do i=l,N 
do ]=i,N 

do mu=l,dim 

P(mu,i,])=P(mu,i,]) -0.5d0*alp*dt*var(mu,i,] ) 

& -0.5d0*alp*clt*varF(mu,i,] ) 

P(mu,],i)=con]g(P(mu,i,])) 

enddo 

enddo 

enddo 

do A1=1,N*N-1 
do sp=l,2 

Q(sp,Al)=Q(sp,Al) -0. 5d0*alp*dt*W(sp, Al) 

enddo 

enddo 

enddo 

return 

end 
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c.the conjugate gradient method. 

subroutine conjugate_gradient (dim, N,M,zeta,X,a0,a,b,phi,G,W0,W, 

& epsilon) 

implicit none 

integer dim,N,M,M0,i,j,counter,A1,sig,sp 

double precision zeta,a0,a(M),b(M),tol,tol0,residue,residue0, 

& epsilon 

double complex X(dim,N,N) 

double complex xx(2,N*N-l),phi(2,N*N-l),r(2,N*N-l),p(2,N*N-l), 

& q(2,N*N-l),o(2,N*N-l),xxl(2,N*N-l),q_previous(2,N*N-l) 

double complex x_tracelessvec (2 ,N*N- 1) ,y_traceless_vec(2,N*N-l), 
& z_traceless_vec(2,N*N-l) 

double complex G(M,2,N*N-1),p_sigma(M,2,N*N-l),W(2,N*N-1), 

& W0(2,N*N-1), G0(M,2,N*N-1) 

double precision rho,rho_previous,rho_sigma(M),beta,beta_previous, 
& beta_sigma(M),xii0,xii,xi(M),xi_previous(M) 

double precision product, productl,product2 
parameter(tol=10 .0d-5,tol0=10 .0d-3) 

c.initialization. 

do A1=1,N*N-1 
do sp=l,2 

xx(sp,Al)=cmplx(0,0) 
r(sp,Al)=phi(sp,Al) 
do sig=l,M 

G(sig, sp,Al)=cmplx(0,0) 

enddo 

q(sp,Al)=cmplx(0,0) 

enddo 

enddo 


c 


initialization of the coefficients 


rho=0.0d0 
beta=l .0d0 
do sig=l,M 

xi_p revious(sig) =1 .0d0 
xi(sig)=1.0d0 
rho_sigma(sig) =0 .0d0 
beta_sigma(sig) =1 .0d0 

enddo 


c.starting the iteration.. 

counter=0 

c.choosing search directions 


13 do A1=1,N*N-1 
do sp=l,2 

p(sp,Al)=r(sp,Al)+rho*p(sp,Al) 
do sig=l,M 

p_sigma(sig,sp,A1)=xi(sig)* r(sp,A1) 

& +rho_sigma(sig)*p_sigma(sig,sp,A1) 

enddo 

enddo 

enddo 


c.solving the no-sigma problem. 

c.performing the only vector-matrix multiplication in the conjugate gradient method... 

c q(i)=0.0d0 

c do j=l,2*(N*N-l) 

c q(i)=q(i)-(-(Delta(i,j )-i-epsilon*delta(i, j) )*p(j) 
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c enddo 

call multiplication(dim,N,M,zeta,X,p,y_traceless_vec) 
o=y_traceless_vec 
c write(*,*)"o ",0 

call multiplication_plus( dim, N,M,zeta,X,o,z_traceless_vec) 
q_previous=q 
q=z_traceless_vec 
q=q+epsilon*p 
c write(*,*)"q",q 

c.calculating the beta coefficient. 

product=0.0d0 
productl=0.0d0 
do A1=1,N*N-1 
do sp=l,2 

p roduct=p roduct+conj g (p(sp,A1))*q(sp,A1) 
productl=productl+conjg(r(sp,Al))*r(sp,Al) 

enddo 

enddo 

beta_previous=beta 

beta=-productl/product 

c.calculating the solution xx, its residue and the rho coefficient 

product2=0.0d0 
do A1=1,N*N-1 
do sp=l,2 

XX(sp,Al)=xx(sp,Al)-beta*p(sp,Al) 
r(sp,Al)=r(sp,Al)+beta*q(sp,Al) 
product2=product2+conjg(r(sp,Al))*r(sp,Al) 

enddo 

enddo 

rho_previous=rho 

rho=product2/productl 


c.solving the sigma problems. 

do sig=l,M 

c.the xi coefficients. 

xii0=rho_previous*beta*(xi_previous(sig)-xi(sig))+ 

& xi_previous(sig)*beta_previous* (1.0d0-b( sig)*beta) 

xii=xi(sig)*xi_previous(sig)*beta_previous/xii0 
xi_p revious(sig)=xi(sig) 
xi(sig)=xii 

c.the beta coefficients. 

beta_sigma(sig)=beta*xi(sig)/xi_p revious(sig) 
c.the solutions. 


do A1=1,N*N-1 
do sp=l,2 

G(sig,sp,Al)=G(sig,sp,Al)-beta_sigma(sig)*p_sigma(sig,sp,Al) 

enddo 

enddo 

c.the alpha coefficients:alpha=rho.. 

rho_sigma(sig)=rho 

rho_sigma(sig)=rho_sigma(sig)*xi(sig)*beta_sigma(sig) 
rho_sigma(sig) = rho_sigma(sig)/(xi_p revious(sig)*beta) 

enddo 

c.testing whether or not we continue the iteration. 

residue=0 .0d0 
do A1=1,N*N-1 
do sp=l,2 

residue=residue+con]g(r(sp,Al))*r(sp,Al) 

enddo 

enddo 

residue=dsqrt(residue) 
counter=counter+l 
if (residue. ge.tol) go to 13 
c write(*,*)counter,residue 
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c.computing the pseudo-fermions W and W0.... 

do A1=1,N*N-1 
do sp=l,2 

W0(sp,Al)=cmplx(0,O) 
do sig=l,M 

W0(sp,Al)=W0(sp,Al)-i-a(sig)*G(sig,sp,Al) 

enddo 

W0(sp,Al)=W0(sp,Al)-i-a0*phi(sp,Al) 
W(sp,Al)=conjg(W0(sp,Al)) 

enddo 

enddo 


c.verification of Delta.xx=phi. 

c write(*,*)"phi",phi 

c write(*,*)"." 

c call multiplication(dim,N,M,zeta,X, XX, y_traceless_vec) 
c o=y_traceless_vec 

c write(*,*)"o",o 

c call multiplication_plus(dim,N,M,zeta,X, 0 ,z_traceless_vec) 
c q=z_traceless_vec 

c.we must have q=phi since Delta.xx=phi.... 

c write(*,*)"q",q 

c write (*,*)"." 

c.verification of (Delta-i-b(sigma)) .G_sigma=phi. 

c sig=l 

c call reverse_identification(N,M,sig,G,x_traceless_vec) 

c xxl=x_tracelessvec 

c call multiplication(dim,N,M,zeta,X,xxl,y_traceless_vec) 

c o=y_traceless_vec 

c write(*,*)"o",o 

c call multiplication_plus(dim,N,M,zeta,X, 0 ,z_traceless_vec) 

c q=z_traceless_vec-i-b(sig)*xxl 

c.we must have q=phi .... 

c write(*,*)"q",q 

c write(*,*)phi(l,l),q(l,l) 

c write (*,*)"." 


return 

end 


c.actions and Hamiltonians. 

subroutine sub_action( dim, N,M,a0,a,b,X,P,phi,Q,alpha,mass, gamma, 
& zeta,ham, action, actions,actionF,kinB,kinF,YM,CS,HO, epsilon ) 

implicit none 

integer dim, N,M,mu,nu,i,],k,I,Al,sp 


double complex X(dim,N,N),P(dim,N,N),phi(2,N*N-l),Q(2,N*N-1), 
&W(2,N*N-1),W0(2,N*N-1),G(M,2,N*N-1) 
double complex ii,action0,actionl,action2,ham0,ym0,cs0,ho0, 

& kin0,kinl 

double precision action, actionB,actionF,ham,kinB,kinF,YM,CS,HO, 
&a0,a(M),b(M), epsilon 
double precision mass, gamma, alpha,zeta 

ii=cmplx(0, 1) 

c.yang-mills action. 

ym0=cmplx(0,0) 
do mu =l,dim 

do nu=mu-(-l,dim 

action0=cmplx(0,O) 
do i=l,N 
do ]=1,N 
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do k=l,N 
do 1=1,N 

action0=action0+X(mu,i,])*X(nu,],k)*X(mu,k,l)*X(nu,l,i) 
& -X(mu,i,])*X(mu,],k)*X(nu,k,l)*X(nu,l,i) 

enddo 

enddo 

enddo 

enddo 

ym0=ym0+action0 

enddo 

enddo 

action=real (ym0) 

YM=-N*action 

action=-N*gamma*action 

c.the harmonic oscillator and the bosonic kinetic terms. 

kin0=cmplx(0,0) 
ho0=cmplx(0,0) 
do mu =l,dim 

ham0=cmplx(0,0) 
actionl=cmplx(0 , 0) 
do i=l,N 
do ]=1,N 

ham0=ham0+P(mu,i,])*P(mu,],i) 
actionl=actionl+X(mu,i,])*X(mu,],i) 

enddo 

enddo 

kin0=kin0+ham0 

ho0=ho0+actionl 

enddo 

kinB=0 . 5d0*real(kin0) 
ham=kinB 

H0=0.5d0*real(ho0) 
action=action+0 . 5d0*mass*real(ho0) 

c.the chern-simons term. 

cs0=cmplx(0,0) 
do i=l,N 
do ]=1,N 
do k=l,N 

cs0=cs0+ii*X(l,i,])*X(2,],k)*X(3,k,i) 

& -ii*X(l,i,])*X(3,],k)*X(2,k,i) 

enddo 

enddo 

enddo 

CS=2 .0d0*N*real(cs0) 

action=action+2 . 0d0*alpha*N*real (cs0) 

ham=ham+action 

actionB=action 


c.fermion contribution. 

call con]ugate_gradient(dim,N,M,zeta,X,a0,a,b,phi,G,W0,W, 
& epsilon) 


action2=cmplx(0,0) 
kinl=cmplx(0,0) 
do A1=1,N*N-1 
do sp=l,2 

action2=action2+W(sp,Al)*phi(sp,Al) 
kinl=kinl+conjg(Q(sp,Al))*Q(sp,Al) 

enddo 

enddo 

actionF=real (action2) 

kinF=real(kinl) 

action=actionB+actionF 
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ham=ham+kinF+actionF 

return 

end 


c.the Boson force. 

subroutine boson_force(N,dim,gamma,mass,alpha,X,var) 

implicit none 

integer N,clim,i,] ,mu,nu,k,l 

double precision gamma, mass,alpha 

double complex var(dim,N,N),X(dim,N,N),ii 

ii=cmplx(0, 1) 
do mu=l,dim 
do i=l,N 
do ]=i,N 

var(mu,i,] )=cmplx(0,0) 
do nu=l,dim 
do k=l,N 
do 1=1, N 

var(mu,i,])=var(mu,i,] )+2 . 0d0*X(nu ,],k)*X(mu,k,l)*X(nu,l,i) 
-X(nu,],k)*X(nu,k,l)*X(mu,l,i) 
-X(mu,],k)*X(nu,k,l)*X(nu,l,i) 

enddo 
enddo 
enddo 

var(mu,i,])=-N*gamma*var(mu,i,])+mass*X(mu,j,i) 

if (mu .eq.l)then 

do k=l,N 

var(mu,i,])=var(mu,i,] )+2.0d0*ii*alpha*N*X(2,] ,k)*X(3,k,i) 

& -2.0d0*ii*alpha*N*X(3,] ,k)*X(2,k,i) 

enddo 
endif 

if(mu.eq.2)then 

do k=l,N 

var(mu,i,])=var(mu,i,] )+2 . 0d0*ii*alpha*N*X(3 ,],k)*X(l,k,i) 

& -2.0d0*ii*alpha*N*X(l,] ,k)*X(3,k,i) 

enddo 
endif 

if(mu.eq.3)then 

do k=l,N 

var(mu,i,])=var(mu,i,] )+2 . 0d0*ii*alpha*N*X( 1 ,j,k)*X(2,k,i) 

& -2.0d0*ii*alpha*N*X(2,] ,k)*X(l,k,i) 

enddo 
endif 

var(mu,],i)=conjg(var(mu,i,])) 

enddo 
enddo 
enddo 

return 
end 


c.the Fermion force. 

subroutine fermion force(N ,clim,M, zeta,a0,a, b,X,G, varF) 

implicit none 

integer N,M,dim,sig,i,] ,k 

double complex X(clim,N,N) ,phi(2,N*N-l) 

double precision a0,a(M),b(M),zeta 

double complex T(dim) ,S(clim) ,varF(clim,N,N) ,ii 

double complex G(M, 2 ,N*N-1),Gvec (2, N*N),Gm(2,N,N),F_vec(2,N*N) 

& ,Fm(2,N,N),W(2,N*N-1),W0(2,N*N-1) 

double complex x_traceless_vec(2,N*N-l),y_traceless_vec(2,N*N-l) 


ii=cmplx(0, 1) 
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do i=l,N 
do ]=i,N 

varF(l,i,] )=cmplx(0,0) 
varF(2,i,] )=cmplx(0,0) 
varF(3,i,] )=cmplx(0,0) 
varF(4,i,] )=cmplx(0,0) 
do sig=l,M 

call reverse_identification(N,M,sig,G,x_t raceless_vec) 

call conversion(N,x_traceless_vec,G_vec,Gm) 

call multiplication (dim, N,M,zeta,X,x_traceless_vec, 

& ytracelessvec) 

call conversion(N,y_traceless_vec,F_vec,Fm) 
T(l)=cmplx(0,0) 

T(2)=cmplx(0,0) 

T(3)=cmplx(0,0) 

T(4)=cmplx(0,0) 

S(l)=cmplx(0,0) 

S(2)=cmplx(0,0) 

S(3)=cmplx(0,0) 

S(4)=cmplx(0,0) 
do k=l,N 

T(1)=T(1)+Gm(l,],k)*conjg(Fm(2,k,i))- conjg (Fm(2,j,k))*Gm(l,k,i) 
& +Gm(2,j,k)*conjg(Fm(l,k,i))- conjg (Fm(l,j,k))*Gm(2,k,i) 

S(l)=S(l)+Gm(l,i,k)*conjg(Fm(2,k, j)) - con jg (Fm(2, i, k) )*GmU,k,j) 
& +Gm(2,i,k)*conjg(Fm(l,k,j))- conjg (Fm(l,i,k))*Gm(2,k,j) 

T(2)=T(2)-Gm(l,j, k)*con jg (Fm(2,k,i) )+conjg (Fm(2,j,k))*Gm(l,k,i) 
& +Gm(2,j,k)*conjg(Fm(l,k,i))- conjg (Fm(l,j,k))*Gm(2,k,i) 

S(2)=S(2)-Gm(l,i, k)*conjg (Fm(2,k,j) )+con jg (Fm(2,i,k))*Gm(l,k,j) 
& +Gm(2,i,k)*conjg(Fm(l,k,j))- conjg (Fm(l,i,k))*Gm(2,k,j) 

T(3)=T(3)+GmU, j ,k)*conjg(FmU,k,i)) - conjg (FmU, j ,k) )*GmU,k,i) 
& -Gm(2,j,k)*conjg(Fm(2,k,i) )+conjg(Fm(2, j,k))*Gm(2,k,i) 

S(3)=S(3)+Gm(l,i,k)*conjg(Fm(l,k,j))- conjg (Fm(l,i,k))*Gm(l,k,j) 
& -Gm(2,i,k)*conjg(Fm(2,k,j) )+con jg (Fm(2,i,k))*Gm(2,k,j) 

T(4)=T(4)+Gm(l,j, k)*con jg (Fm(l,k,i))- conjg (Fm(l,j,k))*Gm(l,k,i) 
& +Gm(2,j,k)*conjg(Fm(2,k,i))- conjg (Fm(2,j,k))*Gm(2,k,i) 

S(4)=S(4)+Gm(l,i,k)*conjg(FmU,k, j)) - con jg (FmU, i, k) )*GmU,k,j) 
& +Gm(2,i,k)*conjg(Fm(2,k,j))- conjg (Fm(2,i,k))*Gm(2,k,j) 

enddo 

T(2)=ii*T(2) 

S(2)=ii*S(2) 

T(4)=ii*T(4) 

S(4)=ii*S(4) 

varF(l,i,j)=varF(l,i,j)-a(sig)*(T(l)+conjg(S(l))) 
varF(2,i,j)=varF(2,i,j)-a(sig)*(T(2)+conjg(S(2))) 
varF(3,i,j)=varF(3,i,j)-a(sig)*(T(3)+conjg(S(3))) 
varF(4,i,j)=varF(4,i,j)-a(sig)*(T(4)+conjg(S(4))) 

enddo 

varFU, j ,i)=conjg(varF(l,i, j)) 
varF(2,j,i)=conjg(varF(2,i,j)) 
varF(3,j,i)=conjg(varF(3,i, j)) 
varF(4,j,i)=conjg(varF(4,i,j)) 

enddo 

enddo 

return 

end 


c.multiplication by M.... 

subroutine multiplication (dim, N,M,zeta,X,xtracelessvec 
& ,y_traceless_vec) 

implicit none 
integer i,j,k,dim,N,M 
double precision zeta 

double complex y_mat(2,N,N),y_vec(2,N*N),y_traceless_vec(2,N*N-l), 
& x_mat(2,N,N),x_vec(2,N*N),x_traceless_vec(2,N*N-l) 

double complex ii,X(dim,N,N) 




Q?Q?Q?Q?Q?Q?Q?Q? Q? Q? ■ Q?Q?Q?Q?Q?Q?Q?Q? 
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ii=cmplx(0, 1) 

call conversion(N,x_t racelessvec,xvec,xmat) 
do ]=1,N 
do i=l,N 

y_mat(l,],i)=zeta*x_mat(l,i,]) 
y_mat(2,],i)=zeta*x_mat(2,i,]) 
do k=l,N 

y_mat(l,],i)=y_mat(l,],i) 

+X(3, i,k)*x_mat (1, k,])-xmat (1, i,k)*X(3,k,]) 
-i-ii*X(4, i, k)*x_mat ( 1 , k, j) - ii*x_mat (1 , i, k) *X(4, k, j) 
+X(1 ,i,k)*x_mat (2 ,k,])-xmat (2 ,i,k)*X(l,k,]) 
-ii*X(2,i, k)*x_mat (2 , k,] )-i-ii*x_mat (2 , i, k) *X(2, k, j) 
y_mat(2,],i)=y_mat(2,],i) 

-X(3,i,k)*x_mat(2,k,] )-i-x_mat(2,i,k)*X(3,k,]) 
-i-ii*X(4, i, k)*x_mat (2 , k,]) - ii*x_mat (2 , i, k) *X(4, k, j) 
-i-X(l , i, k) *x_mat (1 , k, ]) -x_mat (l,i,k)*X(l,k,]) 
-i-ii*X(2,i, k)*x_mat ( 1 , k, j) - ii*x_mat (1 , i, k) *X(2, k, j) 

enddo 
enddo 
Ido 

call reverse_conversion(N,y_mat,y_vec,y_t raceless_vec) 

return 


c.. .. 


multiplication by 


subroutine multiplication_plus(dim,N,M,zeta,X,y_traceless_vec 
,z_tracelessvec) 

implicit none 


integer i,],k,dim,N,M 
double precision zeta 

double complex zmat (2 ,N,N),zvec (2, N*N),z_traceless_vec(2,N*N- 1) , 
y_mat(2,N,N),y_vec(2,N*N),y_traceless_vec(2,N*N-l) 
double complex ii,X(dim,N,N) 


ii=cmplx(0, 1) 

call conversion(N,y_traceless_vec,y_vec,y_mat) 

]=1,N 
do i=l,N 

z_mat(l,],i)=zeta*y_mat(l,i,]) 
z_mat(2,j,i)=zeta*y_mat(2,i,]) 
do k=l,N 

z_mat( 1 ,],i)=z_mat( 1 ,j,i) 

-X(3,k,i)*y_mat(l,k,] )-i-y_mat(l,i,k)*X(3,] ,k) 
-i-ii*X(4, k, i)*y_mat ( 1 , k, j) - ii*y_mat (1 , i, k) *X(4, j, k) 
-X(l,k,i)*y_mat(2,k,] )-i-y_mat(2,i,k)*X(l,] ,k) 
-i-ii*X(2,k,i)*y_mat(2,k,])-ii*y_mat (2 , i, k) *X(2, j ,k) 
z_mat( 2 ,],i)=z_mat( 2 ,j,i) 

-i-X(3,k,i)*y_mat(2,k,]) -y_mat(2,i,k)*X(3,] ,k) 
-i-ii*X(4, k, i)*y_mat (2 , k,]) - ii*y_mat (2 , i, k) *X(4, j, k) 
-X(l,k,i)*y_mat(l,k,] )-i-y_mat(l,i,k)*X(l,] ,k) 
-ii*X(2,k,i)*y_mat(l,k,] )-i-ii*y_mat (1 ,i, k) *X(2, j ,k) 

enddo 
enddo 
enddo 

call reverse_conversion(N,z_mat,z_vec,z_t raceless_vec) 


return 

end 


given x_traceless_vec we construct x_vec and x_mat.. 

subroutine conversion(N,x_traceless vec,x vec,x mat) 

implicit none 
integer N,i,],Al,sp 
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double complex x_traceless_vec(2,N*N-l),x_vec(2,N*N),x_mat(2,N,N) 
& ,xx 

do sp=l,2 
xx=0.0d0 
do i=l,N 
do ]=1,N 

Al=N*(i-l)+j 
if (Al.lt.N*N) then 

xvec(sp,A1)=x_t racelessvec(sp,A1) 
if (i.eq.j) then 

xx=xx-x_t racelessvec(sp,A1) 
endif 
endif 

x_mat(sp,i,])=x_vec(sp,Al) 

enddo 

enddo 

x_vec(sp,N*N)=xx 

xmat(sp,N,N)=x_vec(sp,N*N) 

enddo 

return 

end 

c.given x_mat we construct x_vec and x_traceless_vec... 

subroutine reverse conversion(N,x mat,x vec,x_traceless vec) 

implicit none 
integer N,i,],Al,sp 

double complex x_mat(2,N,N),x_vec(2,N*N),x_traceless_vec(2,N*N-l) 
do sp=l,2 

xvec(sp,N*N)=x_mat(sp,N,N) 
do i=l,N 
do ]=1,N 

Al=N*(i-l)+] 
if (Al.lt.N*N) then 

x_vec(sp,A1)=x_mat(sp,i,j) 
if (i.eq.j) then 

x_traceless_vec(sp,Al)=x_vec(sp,Al)-x_vec(sp,N*N) 

else 

x_traceless_vec(sp,Al)=x_vec(sp,Al) 

endif 

endif 

enddo 

enddo 

enddo 

return 

end 


c.generation of Gaussian noise for the field P 

subroutine gaussian(idum,dim,N,P) 

implicit none 
integer dim,N,mu,i,j,idum 
double precision pi,phi,r,ran2 
double complex ii,P(dim,N,N) 

pi=dacos( -1.0d0) 
ii=cmplx(0, 1) 
do mu=l,dim 

c.diagonal. 

do i=l,N 

phi=2.0d0*pi*ran2(idum) 

r=dsqrt ( -2 .0d0*dlog ( 1.0d0- ran2(idum))) 

P(mu,i,i)=r*dcos(phi) 
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enddo 

c.off diagonal. 

do i=l,N 

do ]=i+l,N 

phi=2.0d0*pi*ran2(idum) 
r=dsqrt(-1.0d0*dlog(1.0d0-ran2(idum) )) 
P(mu,i,] )=r*dcos(phi)+ii*r*dsin (phi) 
P(mu,] ,i)=conjg(P(mu,i,] )) 

enddo 

enddo 

enddo 

return 

end 


c.generation of Gaussian noise for the field Q 

subroutine gaussianplus(idum,N,Q) 

implicit none 
integer N,Al,sp,idum 
double precision pi,phi,r,ran2 
double complex Q(2,N*N-1) ,ii 

pi=dacos( -1.0d0) 
ii=cmplx(0, 1) 
do A1=1,N*N-1 
do sp=l,2 

phi=2.0d0*pi*ran2(idum) 

r=dsqrt ( -1 .0d0*dlog ( 1.0d0- ran2(idum))) 

Q(sp, Al)=r*dcos(phi)+ii*r*dsin (phi) 

enddo 

enddo 

return 

end 


c.hot start. 

subroutine hot(N, dim, idum,inn,X) 
integer mu,i,j ,N,dim,idum 
double complex X(dim,N,N) 
double precision xx,y,inn,ran2 

do mu=l,dim 
do i=l,N 
do ]=i,N 

if (] .ne.i) then 

xx=(2.0d0*ran2(idum) -1.0d0)*inn 
y=(2.0d0*ran2(idum) -1.0d0)*inn 
X(mu,i,] )=cmplx(xx,y) 

X(mu,], i)=cmplx(xx, -y) 

else 

xx=(2.0d0*ran2(idum) -1.0d0)*inn 
X(mu,i,])=xx 

endif 

enddo 

enddo 

enddo 

return 

end 


c.cold start. 

subroutine cold(N, dim, idum,X) 
integer mu,i,j,N,dim,idum 
double complex X(dim,N,N) 











QT' QT' 
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do mu=l,dim 
do i=l,N 
do ]=1,N 

X(mu,i,] )=cmplx(0,0) 

enddo 

enddo 

enddo 

return 

end 


c.the jackknife estimator. 

subroutine jackknife binning(TMC,f,average,error) 
integer i,j,TMC,zbin,nbin 
double precision xm 

double precision f ( 1 :TMC) ,sumf, y ( 1 :TMC) 
double precision sig0,sig,error,average 

sig0=0.0d0 
sumf=0.0d0 
do i=l,TMC 

sumf=sumf+f(i) 

enddo 

xm=sumf/TMC 

zbin=l 

nbin=int(TMC/zbin) 
sig=0.0d0 
do i=l,nbin,l 
y(i)=sumf 
do j=l,zbin 

y(i)=y(i)-f((i-l)*zbin+j ) 

enddo 

y(i)= y(i)/(TMC-zbin) 

sig=sig+( (nbin-1.0d0)/nbin)*(y(i) -xm)*(y(i)-xm) 

enddo 

sig=dsqrt(sig) 

if (sig0 .It. sig) sig0=sig 

error=sig0 

average=xm 

return 

end 


c.the random number generator ran2. 

function ran2(idum) 

implicit none 

integer idum,IMl,IM2,IMMl,lAl,IA2,IQl,IQ2,IRl,IR2,NTAB,NDIV 
real AM,EPS,RNMX 

double precision ran2 

pa rameter ( IM1=2147483563 , IM2=2147483399 , AM=1 . /IMl,IMM1=IM1- 1 , 
IA1=40014 , IA2=40692 , 101=53668 , 102=52774,IR1=12211 , 
IR2=3791 , NTAB=32 , NDIV=l-i-IMMl/NTAB, EPS=1 .2E- 7 , RNMX=1 . - EPS) 
integer idum2,j,k,iv(NTAB),iy 
SAVE iv,iy,idum2 

DATA idum2/123456789/ , iv/NTAB*0/ , iy/0/ 

if (idum.le.0) then 

idum=max( -idum, 1) 
idum2=idum 
do j =NTAB-i-8 , 1 , -1 
k=idum/I01 

idum=IAl*(idum-k*I01)-k*IRl 
if (idum. It. 0) idum=idum-i-IMl 
if (j.le.NTAB) iv(j)=idum 
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enddo 

iy=iv(l) 

endif 

k=idum/IQl 

idum=IAl*(idum-k*IQl)-k*IRl 
if (idum.lt.0) idum=idum+IMl 
k=idum2/IQ2 

idum2=IA2*(idum2-k*IQ2)-k*IR2 

if (idum2.lt.0) idum2=idum2+IM2 

]=l+iy/NDIV 

iy=iv(])-idum2 

iv(])=idum 

if (iy.lt. 1) iy=iy+IMMl 
ran2=min (AM*iy,RNMX) 

return 

end 


c.defining an array from a vector.... 

subroutine identification(N,M,sig,x_traceless_vec,G) 

implicit none 
integer N,M,sig,sp,Al 

double complex G(M,2,N*N-1),x_traceless_vec(2,N*N-l) 

do sp=l,2 

do A1=1,N*N-1 

G(sig,sp,Al)=x_traceless_vec(sp,Al) 

enddo 

enddo 

return 

end 

c.defining a vector from an array. 

subroutine reverse_identification(N,M,sig,G,x_traceless_vec) 

implicit none 
integer N,M,sig,sp,Al 

double complex G(M,2,N*N-1),x_traceless_vec(2,N*N-l) 

do sp=l,2 

do A1=1,N*N-1 

x_traceless_vec(sp,Al)=G(sig,sp,Al) 

enddo 

enddo 

return 

end 


c.adjusting interval. 

subroutine adj ust_inn(cou,pa,dt,time,Rej ec,Accept, 

& nn,ta rget_pa_high,ta rget_pa_low,dt_max,dt_min,inc,dec) 

implicit none 


double precision dt,pa,Rejec,Accept 
integer time,cou,coul 

integer nn 

double precision target_pa_high,target_pa_low,dt_max,dt_min,inc, 
& dec,rhol,rho2,dtnew 

c.pa acceptance rate. 

pa=(Accept)/(Rej ec+Accept) 
coul=mod(cou,nn) 

if (coul.eq.0)then 

c.fixing the acceptance rate between 90 % 70 %. 

if (pa .ge.targetpahigh) then 
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dtnew=dt*inc 

if (dtnew.le.dt_max)then 
dt=dtnew 

else 

dt=dt_max 

endif 

endif 

if (pa.le.targetpalow) then 
dtnew=dt*dec 

if (dtnew.ge.dt_min)then 
dt=dtnew 

else 

dt=dt_min 

endif 

endif 

endif 

return 

end 
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program my_u_one_on_the_lattice 

implicit none 

integer dim, N,NT,i,j,k,I,mu,idum,tther,tmont,nther,nmont,counter,! 

integer tcor,ncor,betai,p,q 

double precision accept,reject,flip 

parameter (dim=4,N=4, NT=4,nther=2**( 14) ,nmont=2**( 14) , ncor=2**4) 
parameter (T=100*(nther+nmont*ncor)) 
double precision beta,ran2,variation, epsilon 
& ,epsilon0,pi,acceptance,avera,erro,tau,deltau 

double complex U(dim,N,N,N,NT),ii,X,XX(0:T) 
double precision W11,W22,W33,W12,W13,W23,W21,W31,W32 
double precision acti(l:nmont),acti_mean,acti_error, 

& action 

double precision acti_pp(l:nmont),acti_pp_mean,acti_pp_error, 

& action_pp 

double precision cv(l:nmont),cv_mean,cv_error 

:nmont),plaql_mean,plaql_error 
nmont),plaq2_mean,plaq2_error 
nmont),plaq3_mean,plaq3_error 
nmont),plaq4_mean,plaq4_error 
nmont),plaq5_mean,plaq5_error 
nmont),plaq6_mean,plaq6_error 
nmont),plaq7_mean,plaq7_error 
nmont),plaq8_mean,plaq8_error 
:nmont),plaq9_mean,plaq9_error 
double precision tension1,error_tensionl,tension2,error_tension2, 

& tension3,error tension3,tension4,error tension4 


double precision plaql(l 
double precision plaq2(l 
double precision plaq3(l 
double precision plaq4(l 
double precision plaq5(l 
double precision plaq6(l 
double precision plaq7(l 
double precision plaq8(l 
double precision plaq9(l 


c.initialization of the random number generator 

idum=- 148175 
call seed(idum) 


c.initialization of other parameters 

counter=0 

accept=0 

reject=0 

flip=0 

ii=cmplx(0, 1) 
pi=dacos( -1.0d0) 
epsilon=pi 


c 


gauge coupling constant 


do betai=l,l 

beta=l .9d0-betai*0 .1 

c.initialization of the link variables. 

do mu=l,dim 
do i=l,N 
do j=l,N 
do k=l,N 
do 1=1,NT 

c.ordered start for coulomb phase while disordered start for confinment phase.. 

if (beta. ge. 1.0d0) then 
epsilon0=0 .0d0 
else 

epsilon0=2 .0d0* ran2(idum) -1.0d0 
epsilon0=epsilon*epsilon0 

endif 

U(mu,i,j,k,l)=dcos(epsilon0)+ii*dsin(epsilon0) 

enddo 

enddo 

enddo 

enddo 
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enddo 


c.thermalization. 

do tther=l,nther 

call metropolis (U ,beta, dim, N,NT,accept,reject,flip,acceptance, 
& epsilon ,counter,XX,T) 

enddo 


c.monte carlo evolution. 

do tmont=l,nmont 
do tcor=l,ncor 

call metropolis(U,beta, dim, N,NT,accept,reject,flip,acceptance, 
& epsilon ,counter,XX,T) 

enddo 

call actio(U, dim, N,NT,beta, action ,actionpp) 
acti(tmont )=action 
acti_pp(tmont)=action_pp 
plaql(tmont)=0.0d0 
plaq2(tmont)=0.0d0 
plaq3(tmont)=0.0d0 
plaq4(tmont)=0.0d0 
plaq5(tmont)=0.0d0 
plaq6(tmont)=0.0d0 
plaq7(tmont)=0.0d0 
plaq8(tmont)=0.0d0 
plaq9(tmont)=0.0d0 
do i=l,N 
do j=l,N 
do k=l,N 
do 1=1, NT 
p=l 
q=4 

call Wilson_Loop(U,dim,N,NT,i,j,k,l,p,q, 

& W11,W22,W33,W12,W13,W23,W21,W31,W32) 

plaql(tmont)=plaql(tmont)+Wll 
plaq2(tmont)=plaq2(tmont)+W22 
plaq3(tmont)=plaq3(tmont)+W33 
plaq4(tmont)=plaq4(tmont)+W12 
plaq5(tmont)=plaq5(tmont)+W13 
plaq6(tmont)=plaq6(tmont)+W23 
plaq7(tmont)=plaq7(tmont)+W21 
plaq8(tmont)=plaq8(tmont)+W31 
plaq9(tmont)=plaq9(tmont)+W32 
enddo 
enddo 
enddo 
enddo 

plaql(tmont)=plaql(tmont)/(N**3*NT) 
plaq2(tmont)=plaq2(tmont)/(N**3*NT) 
plaq3(tmont)=plaq3(tmont)/(N**3*NT) 
plaq4(tmont)=plaq4(tmont)/(N**3*NT) 
plaq5(tmont)=plaq5(tmont)/(N**3*NT) 
plaq6(tmont)=plaq6(tmont)/(N**3*NT) 
plaq7(tmont)=plaq7(tmont)/(N**3*NT) 
plaq8(tmont)=plaq8(tmont)/(N**3*NT) 
plaq9(tmont)=plaq9(tmont)/(N**3*NT) 
enddo 


c.measurements. 

c.action. 

call jackknife_binning(nmont,acti,acti_mean,acti_error) 
write(ll,*)beta,acti_mean,acti_error 
c write(*,*)beta,acti mean,acti error 
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c.action per plaquette. 

call ]ackknife_binning(nmont,acti_pp,acti_pp_mean,acti_pp_error) 
write ( 12 ,* )beta,acti_pp_mean,acti_pp_e r ro r 
c write(*,*)beta,a cti_pp_mean,a cti_pp_e r ro r 

c.specific heat. 


do tmont=l,nmont 

cv(tmont)=(acti(tmont)-acti_mean)**2 

enddo 

call ]ackknife_binning(nmont,cv,cv_mean,cv_error) 
write (13, *)beta,cv_mean,cv_error 
c write(*,*)beta,cv_mean,cv_error 

c.Wilson loops. 

call ]ackknife_binning(nmont,plaql,plaql_mean,plaql_error) 
write ( 15 ,*)beta,plaql_mean,plaql_e rro r 
c write(*,*)beta,plaql_mean,plaql_e r ro r 

call ]ackknife_binning(nmont,plaq2,plaq2_mean,plaq2_error) 
write ( 16 ,*)beta,plaq2_mean,plaq2_e rro r 
c write(*,*)beta,plaq2_mean,plaq2_e rro r 

call ]ackknife_binning(nmont,plaq3,plaq3_mean,plaq3_error) 
write ( 17 ,*)beta,plaq3_mean,plaq3_e rro r 
c write(*,*)beta,plaq3_mean,plaq3_e r ro r 

call ]ackknife_binning(nmont,plaq4,plaq4_mean,plaq4_error) 
write ( 18 ,*)beta,plaq4_mean,plaq4_e rro r 
c write(*,*)beta,plaq4_mean,plaq4_e r ro r 

call ]ackknife_binning(nmont,plaqS,plaq5_mean,plaq5_error) 
write ( 19 ,*)beta,plaqSmean,plaqSe rro r 
c write(*,*)beta,plaq5_mean,plaq5_e r ro r 

call ]ackknife_binning(nmont,plaq6,plaq6_mean,plaq6_error) 
write ( 20 ,*)beta,plaq6_mean,plaq6_e rro r 
c write(*,*)beta,plaq6_mean,plaq6_e r ro r 

call ]ackknife_binning(nmont,plaq7,plaq7_mean,plaq7_error) 
write ( 23 ,*)beta,plaq7_mean,plaq7_e rro r 
c write(*,*)beta,plaq7_mean,plaq7_e r ro r 

call ]ackknife_binning(nmont,plaqS,plaq8_mean,plaq8_error) 
write ( 24, *)beta,plaq8_mean,plaq8_e rro r 
c write(*,*)beta,plaq8_mean,plaq8_e r ro r 

call ]ackknife_binning(nmont,plaq9,plaq9_mean,plaq9_error) 
write ( 25 ,*)beta,plaq9_mean,plaq9_e rro r 
c write(*,*)beta,plaq9_mean,plaq9_e r ro r 

c.Creutz ratios: string tension. 

c.chi22. 

tensionl=(plaq2_mean*plaql_mean)/(plaq4_mean*plaq7_mean) 
c.chi33. 

tension2=(plaq3_mean*plaq2_mean)/(plaq6_mean*plaq9_mean) 
c.chi23. 

tension3=(plaq6_mean*plaq4_mean)/(plaq2_mean*plaq5_mean) 
c.chi32. 

tension4=(plaq9_mean*plaq7_mean)/(plaq2_mean*plaq8_mean) 

tensionl=dabs(tensionl) 
tension2=dabs(tension2) 
tension3=dabs(tension3) 
tension4=dabs(tension4) 
tension l=-dlog (tension1) 
tension2=-dlog(tension2) 
tension3=-dlog(tension3) 
tension4=-dlog(tension4) 

error_tensionl=plaq2_error/plaq2_mean+plaql_error/plaql_mean 
& -plaq4_error/plaq4_mean-plaq7_error/plaq7_mean 

error_tensionl=dabs(error_tensionl) 

error_tension2=plaq3_error/plaq3_mean+plaq2_error/plaq2_mean 
& -plaq6_error/plaq6_mean -plaq9_error/plaq9_mean 

error_tension2=dabs(error_tension2) 

error_tension3=plaq6_error/plaq6_mean+plaq4_error/plaq4_mean 
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& -plaq2_error/plaq2_mean -plaq5_error/plaq5_mean 

error_tension3=dabs(error_tension3) 

error_tension4=plaq9_error/plaq9_mean+plaq7_error/plaq7_mean 
& -plaq2_error/plaq2_mean -plaqSerror/plaqSmean 

error_tension4=clabs (error_tension4) 

write(22,*)beta,tensionl,error_tensionl,tension2,error_tension2, 
& tension3,error_tension3,tension4,error_tension4 

c write(*,*)beta.tension1,error_tensionl,tension2,error_tension2, 

c & tension3,error_tension3,tension4,error_tension4 

enddo 

return 

end 


c.metropolis algorithm. 

subroutine metropolis(U,beta, dim, N,NT,accept,reject,flip, 

& acceptance, epsilon ,counter,XX,T) 

implicit none 

integer dim, N,NT,nu,mu,i,j,k,I,idum,counter,counterG,nn,T 
double precision accept,reject,flip,nnO 

double precision epsilon, epsilonO,beta,variation,proba,r,ran2,pi, 

& modulus.acceptance 

double complex U(dim,N,N,N,NT) ,X,ii,XX(0:T) 

pi=dacos( -l.OdG) 
ii=cmplx(0, 1) 

epsilon0=2.0d0*ran2(idum) -1.0d0 
epsilon0=epsilon*epsilon0 

XX(counter)=dcos(epsilon0)+ii*dsin(epsilonG) 

XX(counter+l)=dcos(epsilonG)-ii*d sin (epsilonG) 

counter0=counter+l 

counter=counter+2 

do mu=l,dim 
do i=l,N 
do j=l,N 
do k=l,N 
do 1=1, NT 

nn0=counter0*ran2(idum) 

nn=nint(nn0) 

X=XX(nn) 

call va riatio(U,X,beta, dim, N,NT,mu,i,j,k,I,va riation) 
if (variation. gt.G) then 
proba=dexp(-variation) 
r=ran2(idum) 
if (proba. gt.r)then 

U(mu,i,j,k,l)=X*U(mu,i,j,k,l) 
accept=accept-i-l 
else 

reject=reject-i-l 

endif 

else 

U(mu,i,j,k,l)=X*U(mu,i,j,k,l) 
flip=flip+l 

endif 

modulus=U(mu,i,j,k,l)*conjg(U(mu,i,j,k,l)) 
modulus=dsqrt(modulus) 

U(mu,i,j,k,l)=U(mu,i,j,k,I)/modulus 

enddo 

enddo 

enddo 

enddo 

enddo 
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c.for the range of N and NT considered the acceptance rate is already sufficiently high so we can 

simply disable the adjust subroutine....we observed that the acceptance rate decreases as we increase N 
and NT. 

call adjust (epsilon ,flip,accept,reject.acceptance) 
c write(*,*)flip,accept,reject,acceptance 

return 

end 


c.adjusting. 

subroutine adjust(epsilon, flip,accept,reject,acceptance) 

implicit none 

double precision epsilon .acceptance 
double precision flip,accept,reject,ran2 
integer idum 

acceptance=(flip+accept)/(flip+accept+rej ect) 
if (acceptance. ge.G.SdO) then 
epsilon=epsilon*l. 2d0 

endif 

if (acceptance. Ie.0.45d0) then 
epsilon=epsilon*0.8d0 

endif 

return 

end 


c.va riation. 

subroutine variatio(U,X,beta, dim, N,NT,mu,i,j,k,I,va riation) 

implicit none 

integer dim,N,NT,nu,mu,i,j,k,l,idum 

double precision epsilon, epsilonG,beta,variation,ran2,pi 
double complex U(dim, N,N,N,NT) .staple,ii,X 

call stapl(U,dim,N,NT,mu,i,j,k,I,staple) 
va riation=-0 . 5d0*beta* ((X- 1.0d0 )*U(mu,i,j,k,l)^staple 
& + conjg( (X-1.0d0)*U(mu,i, j,k,l)*staple)) 

return 

end 


c.staple. 

subroutine stapl(U,dim,N,NT,mu,i,j,k,I,staple) 

implicit none 

integer dim,N,NT,nu,mu,i,j,k,l,i0,ip(N),im(N),ipT(NT),imT(NT), 

& ipn(l:N,l:N),ipnT(l:N,l:N) 
double precision beta 
double complex U(dim, N,N,N,NT),staple 

call index_array(N,NT,ip,im,ipT,imT,ipn,ipnT) 

if (mu.eq. l)then 

staple=U(2,ip(i),j,k,l)*conjg(U(mu,i,ip(j),k,l))* 

& conjg(U(2,i, j,k,l)) 

& +conjg(U(2,ip(i),im(j),k,1)) *conjg (U(mu,i,im(j),k,l)) 

& *U(2,i,im(j),k,l) 

& +U(3,ip(i),j,k,l)*conjg(U(mu,i,j,ip(k),I)) *conjg (U (3 ,i,j,k,l)) 

& +conjg(U(3,ip(i),j,im(k),1))*conjg(U(mu,i,j,im(k),1)) 

& *U(3,i, j,im(k),1) 

& +U(4,ip(i),j,k,l)*conjg(U(mu,i,j,k,ipT(l))) *conjg (U(4, i,j,k,l)) 

& +conjg(U(4,ip(i),j,k,imT(l)) )*conjg (U(mu,i,j,k,imT(l))) 

& *U(4,i, j,k,imT(l)) 

endif 
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if(mu.eq.2)then 

staple=U(l,i,ip(]),k,l)*con]g(U(mu,ip(i),],k,l))* 
conjg(U(l,i,] ,k,l)) 

+conjg(U(l,im(i) ,ip(]),k,1)) *conjg (U(mu,im(i),],k,l)) 
*U(l,im(i) ,],k,l) 

+U(3,i,ip(] ),k,l)*conjg(U(mu,i,],ip(k),I)) *conjg (U (3 ,i,] ,k,l)) 
+con]g(U(3,i,ip(] ),im(k),1) )*conjg(U(mu,i,] ,im(k),1)) 
*U(3,i,] ,im(k),1) 

+U(4,i,ip(] ),k,l)*conjg(U(mu,i,],k,ipT(l))) *conjg (U(4, i,j,k,l)) 
+con]g(U(4,i,ip(] ),k,imT(l)) )*conjg (U(mu,i,j,k,imT(l))) 
*U(4,i,] ,k,imT(l)) 


if(mu.eq.3)then 

staple=U(l,i,],ip(k),l)*conjg(U(mu,ip(i),],k,l)) 

*conjg(U(l,i,] ,k,l)) 

+conjg(U(l,im(i) ,],ip(k),1))*conjg(U(mu,im(i),],k,l)) 
*U(l,im(i) ,],k,l) 

+U(2,i,] ,ip(k),l)*conjg(U(mu,i,ip(]),k,I)) *conjg (U (2 ,i,j,k,l)) 
+conjg(U(2,i,im(] ),ip(k),1))*conjg(U(mu,i,im(]),k,l)) 
*U(2,i,im(] ),k,l) 

+U(4,i,] ,ip(k),l)*conjg(U(mu,i,],k,ipT(l))) *conjg (U(4, i,j,k,l)) 
+con]g(U(4,i,] ,ip(k),imT(l)) )*conjg (U(mu,i,j,k,imT(l))) 
*U(4,i,] ,k,imT(l)) 


if(mu.eq.4)then 

staple=U(l,i,],k,ipT(l))*conjg(U(mu,ip(i),],k,l)) 

*conjg(U(l,i,] ,k,l)) 

+conjg(U(l,im(i) ,],k,ipT(l)))*conjg(U(mu,im(i),],k,l)) 
*U(l,im(i),],k,l) 

+U(2,i,],k,ipT(l))*conjg(U(mu,i,ip(]),k,D) *conjg (U(2,i,j,k,l)) 
+conjg(U(2,i,im(] ),k,ipT(l)))*conjg(U(mu,i,im(]),k,l)) 
*U(2,i,im(]),k,l) 

+U(3,i,],k,ipT(l))*conjg(U(mu,i,],ip(k),1) )*conjg(U(3,i,] ,k,l)) 
+con]g(U(3,i,] ,im(k),ipT(l)))*conjg(U(mu,i,j,im(k),1)) 
*U(3,i,j,im(k),1) 

endif 

return 

end 


c. Wilson loops. 

subroutine Wilson_Loop(U,dim,N,NT,i,],k,l,p,q, 

& W11,W22,W33,W12,W13,W23,W21,W31,W32) 

implicit none 

integer dim,N,NT,i,],k,I,p,q,i0,j0,ipn (1 :N, 1 :N),ipnT( 1 :N, 1 :N), 
& ip(l:N),im(l:N),ipT(l:N),imT(l:N) 


double complex U(dim,N,N,N,NT) ,W1,W2,W3,W4 

double precision W11,W22,W33,W12,W13,W23,W21,W31,W32 

call index_array(N,NT,ip,im,ipT,imT,ipn,ipnT) 

if ( (p.eq.l) .and. (q.eq.4) )then 

Wl=U(p,i,],k,l) 

W4=U(q,i,],k,l) 
c W3=U(q,i+l,],k,l) 

W3=U(q,ipn(i,l),],k,l) 
c W2=U(p,i,],k,l+l) 

W2=U(p,i,],k,ipnT(l,l)) 

W11=0 .5d0* (Wl*W3*con jg (W2) *con]g (W4)+ 

& conjg(Wl)*conjg(W3)*W2*W4) 

c Wl=U(p,i,],k,l)*U(p,i+l,],k,l) 

Wl=U(p,i,],k,l)*U(p,ipn(i,l),j,k,l) 
c W4=U(q,i,],k,l)*U(q,i,],k,l+l) 
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W4=U(q,i,],k,l)*U(q,i,],k,ipnT(l,l)) 
c W3=U(q,i+2,j,k,I)*U(q,i+2,j,k,l+l) 

W3=U(q,ipn(i,2),j,k,I)*U(q,ipn(i, 2) ,j,k,ipnT(l, 1) ) 
c W2=U(p,i,],k,l+2)*U(p,i+l,],k,l+2) 

W2=U(p,i,],k,ipnT(l,2))*U(p,ipn(i,l),],k,ipnT(l,2)) 

W22=0 .5d0* (Wl*W3*con jg (W2) *con]g (W4)+ 

& conjg(Wl)*conjg(W3)*W2*W4) 

c Wl=U(p,i,],k,l)*U(p,i+l,],k,l)*U(p,i+2,],k,l) 

Wl=U(p,i,],k,l)*U(p,ipn(i,l),],k,l)*U(p,ipn(i,2),],k,l) 
c W4=U(q,i,j,k,l)*U(q,i,j,k,l+l)*U(q,i,],k,l+2) 

W4=U(q,i,],k,l)*U(q,i,j,k,ipnT(l, 1) )*U(q,i,j,k,ipnT(l, 2) ) 
c W3=U(q,i+3,j,k,I)*U(q,i+3,j,k,l+l)*U(q,i+3,],k,1+2) 

W3=U(q,ipn(i,3),j,k,I)*U(q,ipn(i, 3) ,j,k,ipnT(l, 1) )* 

& U(q,ipn(i,3),],k,ipnT(l,2)) 

c W2=U(p,i,],k,l+3)*U(p,i+l,],k,l+3)*U(p,i+2,],k,l+3) 

W2=U(p,i,],k,ipnT(l,3))*U(p,ipn(i,l),],k,ipnT(l,3))* 

& U(p,ipn(i,2),],k,ipnT(l,3)) 

W33=0 .5d0* (Wl*W3*con] g (W2) *conj g (W4) + 

& conjg(Wl)*conjg(W3)*W2*W4) 

Wl=U(p,i,],k,l) 

c W4=U(q,i,],k,l)*U(q,i,],k,l+l) 

W4=U(q,i,],k,l)*U(q,i,j,k,ipnT(l,l)) 
c W3=U(q,i+l,j,k,l)*U(q,i+l,j,k,l+l) 

W3=U(q,ipn(i,l),j,k,I)*U(q,ipn(i, 1) ,j,k,ipnT(l, 1) ) 
c W2=U(p,i,j,k,l+2) 

W2=U(p,i,],k,ipnT(l,2)) 

W12=0 .5d0* (Wl*W3*con jg (W2) *conj g (W4) + 

& conjg(Wl)*conjg(W3)*W2*W4) 

c Wl=U(p,i,],k,l)*U(p,i+l,],k,l) 

Wl=U(p,i,j,k,l)*U(p,ipn(i,l),],k,l) 

W4=U(q,i,],k,l) 
c W3=U(q,i+2,j,k,l) 

W3=U(q,ipn(i,2),],k,l) 
c W2=U(p,i,j,k,l+l)*U(p,i+l,],k,l+l) 

W2=U(p,i,],k,ipnT(l,l))*U(p,ipn(i,l),],k,ipnT(l,l)) 

W21=0 .5d0* (Wl*W3*con] g (W2) *con]g (W4)+ 

& conjg(Wl)*conjg(W3)*W2*W4) 

Wl=U(p,i,],k,l) 

c W4=U(q,i,j,k,l)*U(q,i,],k,l+l)*U(q,i,],k,l+2) 

W4=U(q,i,],k,l)*U(q,i,],k,ipnT(l, 1) )*U(q,i,j,k,ipnT(l, 2 )) 
c W3=U(q,i+l,],k,l)*U(q,i+l,j,k,l+l)*U(q,i+l,],k,l+2) 

W3=U(q,ipn(i,l),j,k,I)*U(q,ipn(i, 1) ,j,k,ipnT(l, 1) )* 

& U(q,ipn(i,l),],k,ipnT(l,2)) 

c W2=U(p,i,],k,l+2) 

W2=U(p,i,],k,ipnT(l,3)) 

W13=0 .5d0* (Wl*W3*con jg (W2) *conjg (W4)+ 

& conjg(Wl)*conjg(W3)*W2*W4) 

c Wl=U(p,i,j,k,l)*U(p,i+l,j,k,l)*U(p,i+2,j,k,l) 

Wl=U(p,i,j,k,l)*U(p,ipn(i,l),j,k,l)*U(p,ipn(i,2),j,k,l) 
W4=U(q,i,j,k,l) 
c W3=U(q,i+3,j,k,l) 

W3=U(q,ipn(i,3),j,k,l) 

c W2=U(p,i,j,k,l+l)*U(p,i+l,j,k,l+l)*U(p,i+2,j,k,l+l) 

W2=U(p,i,j,k,ipnT(l,l))*U(p,ipn(i,l),j,k,ipnT(l, 1) )* 

& U(p,ipn(i,2),j,k,ipnT(l,l)) 

W31=0 .5d0* (Wl*W3*con jg (W2) *conj g (W4) + 

& conjg(Wl)*conjg(W3)*W2*W4) 

c Wl=U(p,i,j,k,l)*U(p,i+l,j,k,l) 

Wl=U(p,i,j,k,l)*U(p,ipn(i,l),j,k,l) 
c W4=U(q,i,j,k,l)*U(q,i,j,k,l+l)*U(q,i,j,k,l+2) 

W4=U(q,i,j,k,l)*U(q,i,j,k,ipnT(l, 1) )*U(q,i,j,k,ipnT(l, 2 )) 
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c W3=U(q,i+2,j,k,l)*U(q,i+2,],k,l+l)*U(q,i+2,],k,l+2) 

W3=U(q,ipn(i,2),j,k,I)*U(q,ipn(i, 2) ,j,k,ipnT(l, 1) )* 

& U(q,ipn(i,2),],k,ipnT(l,2)) 

c W2=U(p,i,],k,l+3)*U(p,i+l,],k,l+3) 

W2=U(p,i,],k,ipnT(l,3))*U(p,ipn(i,l),],k,ipnT(l,3)) 
W23=0 .5d0* (Wl*W3*conj g (W2) *con]g (W4) + 

& conjg(Wl)*conjg(W3)*W2*W4) 

c Wl=U(p,i,],k,l)*U(p,i+l,],k,l)*U(p,i+2,],k,l) 

Wl=U(p,i,],k,l)*U(p,ipn(i,l),],k,l)*U(p,ipn(i,2),],k,l) 

c W4=U(q,i,j,k,l)*U(q,i,j,k,l+l) 

W4=U(q,i,],k,l)*U(q,i,j,k,ipnT(l,l)) 
c W3=U(q,i+3,j,k,I)*U(q,i+3,j,k,l+D 

W3=U(q,ipn(i,3),j,k,I)*U(q,ipn(i, 3) ,j,k,ipnT(l, 1) ) 
c W2=U(p,i,j,k,l+2)*U(p,i+l,],k,l+2)*U(p,i+2,],k,l+2) 

W2=U(p,i,],k,ipnT(l,2))*U(p,ipn(i,l),],k,ipnT(l,2))* 

& U(p,ipn(i,2),],k,ipnT(l,2)) 

W32=0 .5d0* (Wl*W3*con] g (W2) ^conjg (W4)+ 

& conjg(Wl)*conjg(W3)*W2*W4) 

endif 

return 

end 


c.indexing. 

subroutine index array(N,NT,ip,im,ipT,imT,ipn,ipnT) 

implicit none 

integer N,NT,i0,]0,ip(l:N),im(l:N),ipT(l:N),imT(l:N), 
& ipn(l:N,l:N),ipnT(l:N,l:N) 


do i0=l,N 

ip(i0)=i0+l 
im(i0)=i0-l 
enddo 
ip(N)=l 
im(l)=N 
do i0=l,NT 

ipT(i0)=i0+l 
imT(i0)=i0-l 
enddo 
ipT(NT)=l 
imT(l)=NT 
do i0=l,N 
do ]0=1,N 

if (i0+]0 .le. N) then 

ipn(i0,]0)=i0+]0 

else 

ipn(i0,]0)=(i0+]0)-N 

endif 

enddo 

enddo 

do i0=l,NT 
do ] 0=1, NT 

if (i0+]0 .le. NT) then 

ipnT(i0,]0)=i0+]0 

else 

ipnT(i0,]0)=(i0+]0)-NT 

endif 

enddo 

enddo 


c 


return 

end 


action 
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subroutine actio(U, dim ,N,NT,beta, action ,actionpp) 
implicit none 

integer dim, N,NT,i,j,k,I,ip(N),im(N),ipT(NT),imT(NT) 

double precision beta 

double precision actionl2,actionl3,actionl4,action23,action24, 
& action34, action, actionpp 
double complex U(dim,N,N,N,NT) 


do i=l,N 
ip(i)=i+l 
im(i)=i-l 
enddo 
ip(N)=l 
im(l)=N 
do i=l,NT 
ipT(i)=i+l 
imT(i)=i-l 
enddo 
ipT(NT)=l 
imT(l)=NT 


c 


i=l 

]=1 

k=l 

1=1 


.action per plaquette. .. . 

action_pp=U(l,i,],k,l)*U(2,ip(i),],k,l) 

*conjg(U(l,i,ip(] ),k,1)) *conjg (U(2 ,i,j,k,l)) 
+U(2,i,],k,l)*U(l,i,ip(]),k,l) 
*conjg(U(2,ip(i) ,],k,1)) *con]g (U( 1, i,],k,l)) 
action_pp=0 . 5d0*action_pp 
action_pp=l .0d0-action_pp 

.action. 

actionl2=0.0d0 

actionl3=0.0d0 

actionl4=0.0d0 

action23=0.0d0 

action24=0.0d0 

action34=0.0d0 


i=l,N 
do ]=1,N 
do k=l,N 
do 1=1,NT 

actionl2=actionl2+U(l,i,],k,l)*U(2,ip(i),],k,l) 
*conjg(U(l,i,ip(] ),k,1)) *conjg (U(2,i,j,k,l)) 
+U(2,i,],k,l)*U(l,i,ip(]),k,l) 
*conjg(U(2,ip(i) ,],k,1)) *conjg (U( 1 ,i,j,k,l)) 
actionl3=actionl3+U(l,i,],k,l)*U(3,ip(i),],k,l) 
*conjg(U(l,i,] ,ip(k),1) )*conjg(U(3,i,] ,k,l)) 
+U(3,i,],k,l)*U(l,i,],ip(k),1) 
*conjg(U(3,ip(i) ,],k,1)) *conjg (U( 1 ,i,j,k,l)) 
actionl4=actionl4+U(l,i,],k,l)*U(4,ip(i),],k,l) 

*conjg(U(l,i,] ,k,ipT(l)) )*conjg(U(4,i,] ,k,l)) 
+U(4,i,],k,l)*U(l,i,],k,ipT(l)) 
*conjg(U(4,ip(i) ,],k,1)) *con]g (U( 1 ,i,j,k,l)) 
action23=action23+U(2,i,],k,l)*U(3,i,ip(]),k,l) 
*conjg(U(2,i,] ,ip(k),1) )*conjg(U(3,i,] ,k,l)) 
+U(3,i,],k,l)*U(2,i,],ip(k),1) 
*conjg(U(3,i,ip(] ),k,1)) *conjg (U(2,i,j,k,l)) 
action24=action24+U(2,i,],k,l)*U(4,i,ip(]),k,l) 

*con]g(U(2,i,] ,k,ipT(l)) )*conjg(U(4,i,] ,k,l)) 
+U(4,i,],k,l)*U(2,i,],k,ipT(l)) 
*con]g(U(4,i,ip(] ),k,1)) *conjg (U(2,i,j,k,l)) 
action34=action34+U(3,i,],k,l)*U(4,i,],ip(k),l) 

*conjg(U(3,i,] ,k,ipT(l)) )*conjg(U(4,i,] ,k,l)) 
+U(4,i,],k,l)*U(3,i,],k,ipT(l)) 

*conjg(U(4,i,] ,ip(k),1) )*conjg(U(3,i,] ,k,l)) 






QT' QT' 
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enddo 

enddo 

enddo 

enddo 

action=actionl2+actionl3+actionl4+action23+action24+action34 
action=-0 . 5d0*beta*action 
action=action !+6.0d0*beta*N*N*N*NT 

return 

end 


c.jackknife. 

subroutine jackknife binning(TMC,f,average,error) 

implicit none 

integer i,j,TMC,zbin,nbin 

doubleprecision xm 

doubleprecision f(l:TMC),sumf,y(l:TMC) 
doubleprecision sig0,sig.error,average 

sig0=0.0d0 
sumf=0.0d0 
do i=l,TMC 

sumf=sumf+f(i) 

enddo 

xm=sumf/TMC 

zbin=l 

nbin=int(TMC/zbin) 
sig=0.0d0 
do i=l,nbin,l 
y(i)=sumf 
do j=l,zbin 

y(i)=y(i)-f((i-l)*zbin+j ) 

enddo 

y(i)= y(i)/(TMC-zbin) 

sig=sig+((nbin- 1.0d0 )/nbin)*(y(i)-xm)*(y(i)-xm) 

enddo 

sig=dsqrt(sig) 

if (sig0 .It. sig) sig0=sig 

error=sig0 

average=xm 

return 

end 


c.seed. 

subroutine seed(idum) 
integer iduml,idum, n 
real x 

x=0.0 

idum=idum-2*int(secnds(x)) 

return 

end 


c.the ran2 generator. 

function ran2(idum) 

implicit none 

integer idum,IMl,IM2,IMMl,lAl,IA2,IQl,IQ2,IRl,IR2,NTAB,NDIV 
real AM,EPS,RNMX 
doubleprecision ran2 

pa rameter ( IM1=2147483563 , IM2=2147483399 , AM=1 . /IMl,IMM1=IM1- 1 , 
IA1=40014 , IA2=40692 , 101=53668 , 102=52774,IR1=12211 , 
IR2=3791 , NTAB=32 , NDIV=l-i-IMMl/NTAB, EPS=1 .2E-7 , RNMX=1 . - EPS) 
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integer idum2,j,k,iv(NTAB),iy 
SAVE iv,iy,idum2 

DATA idum2/123456789/ , iv/NTAB*0/ , iy/0/ 

if (idum.le.0) then 

idum=max( -idum, 1) 
idum2=idum 
do ] =NTAB+8 , 1 , -1 
k=idum/IQl 

idum=IAl*(idum-k*IQl)-k*IRl 
if (idum. It. 0) idum=idum+IMl 
if (j.le.NTAB) iv(])=idum 

enddo 

iy=iv(l) 

endif 

k=idum/IQl 

idum=IAl*(idum-k*IQl)-k*IRl 
if (idum. It. 0) idum=idum+IMl 
k=idum2/IQ2 

idum2=IA2*(idum2-k*IQ2)-k*IR2 

if (idum2.lt.0) idum2=idum2+IM2 

]=l+iy/NDIV 

iy=iv(])-idum2 

iv(])=idum 

if (iy.lt. 1) iy=iy+IMMl 
ran2=min (AM*iy,RNMX) 

return 

end 



Appendix A 

Floating Point Representation, 
Machine Precision and Errors 


Floating Point Representation: Any real number x can be put in the following 
binary form 

X = ±m X , l<m < 2 , m = 6o.6i62&3--- (A-l) 

We consider a 32—bit computer. Since l<m < 2 we must have 6o = 1- This binary 
expansion is called normalized. For single precision floating-point numbers (singles or 
floats) we use a 32—bit word with one bit for the sign, 8 bits for the exponent e and 23 
bits for the significand m. Since only 8 bits are used to store the exponent we must have 
e in the range 0<e<255. The bias is chosen bias = 127 so that the actual exponent is 
in the range —127<e — bias<128. This way we can have very small numbers while the 
stored exponent is always positive. Since the hrst bit of the signihcand is 1 the stored 
bits of the significand are only 6i62---fe23- If ^24,^25, •• are not all zero the floating point 
representation is not exact. Strictly speaking a floating point number is a number for which 
624 = b 25 = ..0. The floating point representation of a non-zero real number is unique 
because of the condition l<m < 2. In summary the above real number is represented on 
the computer by 


^normal float = (-I)*!-/ X 2^-127 , Q < 6 < 255. (A.2) 

These are normal numbers. The terminology floating point is now clear. The binary 
point can be moved (floated) to any position in the bitstring by choosing the appropriate 
exponent. 

The smallest normalized number is 2“^^®. The subnormal numbers are represented by 

a^subnormal float = (“1)^0./ X 2“^^®. (A.3) 

These are not normalized numbers. In fact the space between 0 and the smallest positive 
normalized number is filled by the subnormal numbers. 

Explicitly 
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s 

e 

f 

Bit Position 

31 

30-23 

22-0 


Because only a finite number of bits is used the set of machine numbers (the numbers 
that the computer can store exactly or approximately) is much smaller than the set of 
real numbers. There is a maximum and a minimum. Exceeding the maximum we get the 
error condition known as overflow. Falling below the minimum we get the error condition 
known as underflow. 

The largest number corresponds to the normal floating number with s = 0, e = 254 
and 1./ = 1.111..1 (with 23 Is after the binary point). We compute 1./ = 1 + 0.5 + 0.25 + 
0.125 + ... = 2. Hence Xnormai float max = 2 X 2^^^ ~ 3.4 X 10^®. The smallest number 
corresponds to the subnormal floating number with s = 0 and 0./ = 0.00...1 = 2“^^. 
Hence Xsubnormai float min = 2“^^® ~ 1.4 X 10“^^. We get for single precision floats the 
range 


1.4 X 10“^^< single precision <3.4 x 10^®. 

(A.4) 

We remark that 


2 “^^ ~ 10 “®-®. 

(A.5) 

Thus single precision numbers have 6 — 7 decimal places of significance. 

There are special cases. The zero can not be normalized. It is represented by two 
floats ±0. Also +00 are special numbers. Finally NaN (not a number) is also a special 
case. Explicitly we have 

±0 = (-1)^0.0...0 X 2“^^®. 

(A. 6 ) 

+ 00 = (-l)H.O...O X 2^27^ 

(A.7) 

NaN = (-l)H./ X 2^2^ , / / 0. 

(A. 8 ) 


The double precision floating point numbers (doubles) occupy 64 bits. The first bit is for 
the sign, 11 bits for the exponent and 52 bits for the significand. They are stored as two 
32—bist words. Explicitly 



s 

e 

f 

f 

Bit Position 

63 

62-52 

51-32 

31-0 


In this case the bias is bias = 1023. They correspond approximately to 16 decimal places 
of precision. They are in the range 


4.9 X 10 324^ double precision <1.8 x 10^^®. (A.9) 

The above description corresponds to the IEEE 754 standard adopted in 1987 by the 
Institute of Electrical and Electronics Engineers (IEEE) and American National Standards 
Institute (ANSI). 
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Machine Precision and Roundoff Errors: The gap e between the number 1 
and the next largest number is called the machine precision. For single precision we get 
e = 2“^^. For double precision we get e = 2“^^. 

Alternatively the machine precision Cm is the largest positive number which if added 
to the number stored as 1 will not change this stored 1, viz 


Ic T 


= Ic 


(A.IO) 


Clearly €m < e. The number Xc is the computer representation of of the number x. The 
relative error €x in Xc is therefore such that 


|ex| = |^- \<em. (A.ll) 

X 

All single precision numbers contain an error in their 6th decimal place and all double 
precision numbers contain an error in their 15th decimal place. 

An operation on the computer will therefore only approximate the analytic answer 
since numbers are stored approximately. For example the difference a = 6 — c is on the 
computer ac = be — Cc- We compute 

dc . b c .. , 

— = 1 + Cfe-Cc“- (^-12) 

a a a 

In particular the subtraction of two very large nearly equal numbers b and c may lead to 
a very large error in the answer ac- Indeed we get the error 


Ca 




b 

a 


{(-b - ec). 


(A.13) 


In other words the large number b/a can magnify the error considerably. This is called 
subtractive cancellation. 

Let us next consider the operation of multiplication of two numbers b and c to produce 
a number a, viz a = b x c. This operation is represented on the computer by ac = beX Cc- 
We get the error 


Ca — €f) + Cc- 


(A.14) 


Let us now consider an operation involving a large number N of steps. The question we 
want to ask is how does the roundoff error accumulate. 

The main observation is that roundoff errors grow slowly and randomly with N. They 
diverge as N gets very large. By assuming that the roundoff errors in the individual steps 
of the operation are not correlated we can view the accumulation of error as a random 
walk problem with step size equal to the machine precison €m- We know from the study 
of the random walk problem in statistical mechanics that the total roundoff error will be 
proportional to ^/N, namely 

ero = \fNem- (A.15) 

This is the most conservative estimation of the roundoff errors. The roundoff errors are 
analogous to the uncertainty in the measurement of a physical quantity. 
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Systematic (Algorithmic) Errors: This type of errors arise from the use of ap¬ 
proximate numerical solutions. In general the algorithmic (systematic) error is inversely 
proportional to some power of the number of steps N, i.e. 


a 

€sys = 


(A.16) 


The total error is obtained by adding the roundoff error, viz 

etot = Csys + fro = + V iVCm- (^-17) 

There is a competition between the two types of errors. For small N it is the systematic 
error which dominates while for large N the roundoff error dominates. This is very 
interesting because it means that by trying to decrease the systematic error (by increasing 
A) we will increase the roundoff error. The best algorithm is the algorithm which gives 
an acceptable approximation in a small number of steps so that there will be no time for 
roundoff errors to grow large. 

As an example let us consider the case (3 = 2 and a = 1. The total error is 

Ctot = (A.18) 


This error is minimum when 


de 


tot 


dN 


= 0 . 


(A.19) 


For single precision calculation (e^ = 10“^) we get N = 1099. Hence etot = 4 x 10“®. 
Most of the error is roundoff. In order to decrease the roundoff error and hence the total 
error in this example we need to decrease the number of steps. Furthermore in order for 
the systematic error to not increase when we decrease the number of steps we must find 
another algorithm which converges faster with N. For an algorithm with a = 2 and /3 = 4 
the total error is 


etot — ^ 


(A.20) 


This error is minimum now at A = 67 for which etot = 9 x 10 We have only 1/16 as 
many steps with an error smaller by a factor of 4. 
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j iLc^- L aiJI |4^L) ' ‘>> >t jju jJbiJI 'iu^jL3Li\ ^LjJ_t^t 

L^jjjjilliJI j_yS J‘^■*- (_^jlJI (JJL^I 5j_^Vl SJLtu 30 — 40 ^ Cj 

OLjV jll 4_> jJ) 

'^ ^ Iri“v Ia jLiTlc t *1' ^ ^ tJ»*, 11 /• 1 1^ I Att j>| iii^) ^j_4 <11^ -1 < ^tl ^ < 

4_4lJL>i 1 I^JLS ■^‘i L&j_£L 3I_) jj-4 iilLLft ^ j-StfUilS - 1 »J < ^tl ^ 2 i^ tJ«* tl - 1 i^ . Atl jj_l_) 

j juu» t^jLUL^LSLLa l.*'~ ' J' ^ ' > *'' ^' .i >iri'»» ^ /• 1 . Atl 

lilLLft .<Li_lj^ 'jl ^ ^tl iiJLL& 4-L^Lj ^ ^ 'j' ^ ^tl 4-L^Lj tilLL^ ^1 sj .Alt 

JLx j3 4jt j-pjLA ij^ tilift (j£ jj-4 <(j^t ^-dLSLO 

^JlJUlU ^LjJ_t^t ij\S .iiUJhJLiiJt 4jjLd^t '•'_'j J ^^ 2 A I" a j 2 l.^A'i a 

tili^ (^J -LT-hf J (J* ^ ^ ^ * ij ~' ' ^JJJ ^"'j ^ Jri^ ^JIjlj )JjlaA1a J 

^^JijiJI »LjJ_t^t (jt j-i2jLj i^jiJi (J (^tjdl ^jJa^t i>jL± LftLLxHj L^j *, 11 

^ /* 1 i ^ < /-I tf CJ^ ^ 

^ ^ ^ *, 11 ^ 1 <^ . A tl 4 .i^L> ^ /■ 1 1^ I A tt ^j_4 /• 1 I A tl 

Jjxt ^j_4 4^ii_4Ljj^l^iiJt ^ ja^LLc ^A ^ c l j^ r Lt) J.iL4 LjLi^UjJI 

.L^^^.JLA (J^ l)^ d 4jLt.3L^ 4 -LjL)^^_c£ 411 <11 A (_)->• 

^31^=1^i- 4 C)L^=l^i^t $1 j^l 'jj ^ L.c»5dt CiVL^-iklLuil 

j-L^ 4 > ii^Li^ 1 g >^ ^ I tl 1^ I Att ^JJl <II ^T) ^1^=1 <^4 jL3i1I ljLl^3 

i^JJLC 3l^=L>i^ ^bJUll 4la^ .ils^ ••>> a ^ L l L >iJ L?*^ ' ^ ^ V ^ 4_Lla3> 

(jl^= |j| L 4 *I~'< ^1 JL)^^ Llj| ^ ' . t-» tt ^j_4 ^ 4jLit^LlH JLc^ 4 -lJL)^^_l 31 I i^LL4->>-U ^^LiL4 

Lai ^‘'jl ^ n d 4_i^j.^O ^-jLIj ^ (jh V jt BlIALlLoII 1 n *< a J-oUt IlL^ 1 4 j 

La 131 ^ ' L« »~i ^t ^jlLo-l La L^t^ nil ml l^JL^I 4_i_lJ^.^O ^ILLj ^ 

jL>iH l)-?*^ L)~^ 4-lu3L>j 4_La jjl jL>i-)t l^lL^I IlLA ^3 ‘ ^'*•'* L>^ ^ .ClSjjxI 

4_> g 111*1 La JJ.' Lt^ ’'j ■^*'' I ‘-^jl j [ajJ^ ^j^-oHI IlLA 

(_^JL^L) ^HSLa 3j.^j^ 4-uj3ljjlt 4_i_ajjtj3dt 4.ajx lt^ k- L o T LatJ j l^JLLaiJt 31^=l^i^L) 

' f ^ ^ ' L>1 j-4 ^ c^g-SL U i^jSLaa 4^^ j^t ljUiI 

31.^3L>L.all ^3^.^111 ljjlJL) ^LLo^ .4-Lij3t ljjL>iJ L)^1 lt^ l^jJLiiJt LjLi^3L>i.^t 

1 g 1 g tl Iri 1 a^ A /~ 11^I 4_La3^1 Lat 4-LLgjLglI <^^.>>111 4JLuill ^^4 -La , i>» tl 1 i^^LLall 

JU 

Lot ^ L4L^J ^ S^^IjI- 4 ^1 jLO^I LL^ 4jL3 ^ d' 113 ' ■A11 4_uit^LjH i^jJbiH BL^al^n-gll 
(_^jilt ^1_>3TI t^\ atjjxt gLLdl 4_LLajLglt (j^ljrtt) jL^jx 6ja[jlaa ^ 

( gT l l jo J l^JLUilt jl^aL^xolt 4^ j.AJ (^LLII ljI irixitl 4Jbl^ 4_LLaJLgll 4_) 

i~il I t-A A tt 3 -l L >iJ ^ j-aVI ^.<2'i s ^l L l L ojiII 

p tX* ^ .4^1-a j^t ljUlI ILuJUilt AIj3 j JJLul j L)1 w*J iy^ 3 ^-kbl jll Lh^ 

LjULOt (_^LL9>t ~<\ j 2 /~ tl ^ j uS3 ^ • *'1 'j ' ■A tt 4_LL>ujlt ^Lg^^t L&JLxij l^JJLiilt ‘~'l ■‘^1 -A. tl 

4jxL>bIt lLLc Liajt 3 -SLa-) ‘"*1 <^-<1 -a. tl aJJb -{C) (jjm 4 JlI jI (Fortran) ^^ja jJil\ Jl-a 4ji.gjA.glI 
l^jjijill LjL^A_aj_^l 3^-44LLuit .L ^3 (Lapack) lILj^ l)-^ i^jLiJilt LjLLtjjjlt GLLLSLa 3t4LLa 
iiLLjlj. ;4j4jl3i1I LjL^Lxwgll jLL* ^ (Mathematica) LSL^Lg^La j (Matlab) Lj^La JIa 3J.aL^I 
(j-aj ^1 (^4^4 4j^ 5j-gllj ^ 1 gr, t^Monte Carlo) jljl^= ^^aA j.gll 4.gjjJj Lt^ L- L g l LitJ (_yjll 
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ij 3^3 ^ Aj A11 Ijlv ^jld JtH^ 

6Julaj9 (jt .4.91.4^^ CjUlI i~nii_>t j 4.4^jJL« ljUiJ 

LjLk^3L>i.^t LaL^j j-kC 1 g*<^T L- L ^ T Latj ^ ljLiI III•>!TI <^L3lJL1 

.Ljlj.^) ij^ JJLC A jt->-^tl ^.. A~t jtji^ ^Lu<VLj h- L ^ r uu 

j>LL>>rLu<t t-cLgh T u ^ 4^4->«-^ 4-al LljI t—c T cSLj (_^t j t-» tt I ■ t->, i>» tl 1 1-3 

> '> > t (J > it di'i tl 90 ^1 77 ^'X tl > j>i'<111 L ^^jji .3^^L^x}t 

. (Ubuntu) (Linux) 

aIjJjA tt ^j^J.4JX-4 iSSH"^^ ^ji)jL& 

^;'t-» ^_,JLc 2009 i>Lill jJLa '•'_'jjI4 Lit!J^l L^L^I 

i^^jLatll A1 I Att ^(^Li^-lS III >t) (_^^jL3tll (J.xJL>>ILIt ^•‘ ‘ >1 A a ^ III > (TI 

JjT) .(jJLuiL^lt GLuax^aJo ^ (iGj.1^ ^Lj jGuiL4) 

j-^ (_^jjut LitiJ^L j ^Luaj^t ^LjJ-GJI GtjaGLax^- iGjia^ 

j_yi£ <CLuaLx jl badis.ydri@univ — annaba.org 

•http : //homepages.dias.ie/ydri/ 

j.5LuJLj (J.4^t l>^ S ^Lluloj ^Li^t (_^jJLj| Gti J^t ' a"j 

^ LJ1 g i7i jj_) ^ A t-» ..»% a j LLlu ^ I a 1 i a tt , \ ^ n 41 (j-ll <idl ^^JL4JL1 
(Jjxt ^j_4 iGl-Lilt Juua L&L 4 JL 3 ^^-dt B^l T cSLO G ^ > g < ii~> TI ^ A- L c l ^xb Gl JLcl < 11 4 11 ^_yjLuc<Iu jLu^Vl 

A1 >j I A H 4-t.4-m jJ) 2-4lj_Llt i~il A I , t-t*; tl ^ GtjaGLax^l i»jL& ^L9A.il 

(_^jJU (JJIJJLj 
tiGLlc < JL) I ^^_LU 

2013 2LJb_^ 8 
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^^124 -jiji 


^_tJL4^ ^ 1^1 tj tl ^_) (Jat^ 200 (^^11111 P aHjLj ^ ^ 11-«~ ...I ^^^LSL) 4jxl^jiJt ^ ^ .-xl 1^ tl 

2 ,„^1« a ^ ^S3 ((^1 ^ 3^ Liia-il d^jjLi 9-\ J^t 1^4 3 jJ .3jL^t j 

Alt^.» ^ i^j-uiJt ^j-4 ^-4 IjjJs iL^LLL4 j 4.^ 

i^drag = -CpAv"^. 

(jjuajjLi\ ^t->^tl 4^1 III4 A j C <^1 p alx^ 

(J^ <7i 11 jL3>Lj (j.4^1^411 (jjuo\-i 4JL4>^^ 

dv P CpAv‘^ 

dt mv m 

h. ' -4luu ^Llu-^II V Lji iii-v LJ jJLIa^l 

(_yJL4 j i:yl* T ^_yJL4jJI JLsi^l ^l-> 3*1 -J-J^l jj* 

A ^ 

^‘=N 


t = iAt , i = 0,..., N. 
v{i) = v{t — At). 


v{i + 1) = v{i) + At 


i- 


P 


< »T 

CpAv‘^{i 


\mv{i) 


m 


^JJU 

.Lj j>}jI 31^1 ^t-T»oTI Jj>ill 

. i = 1,...,N + 1 


LJ ^t-««7 4.3^tj.^t 4 _lL 4JJI i~tltJ»1 tl 

i{i + 1) = iAt , i = 1,..., Y + 1. 


4j A ^4 3^3 ^III^ jjjJI i ><»'>») (1) 

Liajt .0.5 (_^^Luu C CuLj jL3>lj (JtJjjiJI IlLA \I7 t4L4 . 4 Ij^t 1^4^13.^ 

3 Tl 

m = 70kg , A = 0.33m^ , p = 1.2kg/m^ , At = 0.1s , T = 200s. 


LJ ^ T^* ' 4_kjtLG_)^t 4^^ III Tl 


■0(1) = 4m/s , t(l) = 0. 


j_L3LLaj {oIj L4Ll1c .tJ«-^ \I7 |iiL4 ^^11->7 ,„Vt lIuI^ j_Lutj ‘Tj»-^ \I7 li^Ld (2) 

.4_tjL4jJI 3jt->-^tl 
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Cm 


ij^S3 ^ dL^ol ijmSL^ J-4-itJ ^3 Cl^o 4^ji^ 

Cl'^ 1 \jLj» ^t ^ ij jjL§ .B LJ t—U^LQll CuLiiJ J-« j3 .^^J.xult ^-4 

dx dvx „ 

-r = Vx , m—— = —BvVx- 
dt ' dt 

dy dvy 

dt ^ dt ^ 

^LUt (JiLi^t >li3>L) jj)j3o ^t->» <>tl ^j' i>»l A"tt LjV^LiL^t oJi^ 

^Bv{i)vx{i) 


Vx{i + 1 ) = Vx{i) - At- 


Vy{i + 1 ) = Vy{i) — Atg — At 


m 

Bv{i)vy{i) 

m 


v{i + 1 ) = ^Jvl{i + l)+vl{i + l). 
x{i + 1 ) = x{i) + At Vxii)- 
y{i + 1 ) = y{i) + At Vy{i). 

.N 1 pji j i (d 1 ^ nj(3^1 ^3 j-udl ^ j-4-B 4^thAlL)^t pj 

=1 ( 1 ) 
b (2) 


■ ill »T j-I^t <Ll^ jjt^1 g 


B 


3^ 3 <7i t, 


— = 0.00004m ^ , g = d-Sm/s"^. 
m 

n(l) = 700m/s , 6* = 30 degree. 
na;(l) = n(l) cos 9 , ^^(1) = n(l) sin 9. 

N = 10 ^ , At = 0.01s. 

t3La .^t ^u9 LJ j US^ jl III ^tl 

4.3JL»> ‘ ■>» I ^ .^-<7tl ^ A ^tl i^juo if (_yl3j-iUI ^ ij j>|jL^hJLutL) (3) 

do 

if{y{i + l).le.0)exit. 

.^tIT ^ 3^S ^ ^3^3 'kJLjjua3\ ij-^ 

3UjtJJt (j^5L3 L«1 41 p-b^l 3L^b (jt jgit 2 ua 4 3^3 4lL^ (4) 

.4^|jG^^t iLijIJJl 3 jlc jL^IL 3>L) IjLft ij^ i32j>i3 .4^j4 45 

cti^ult 3 (,7^ 4..4.ut^4 pi do 4.3JL> 4^List Ltia^l a 1 

^huTI 43.«^ 


ohr.t 1 j^SL j (,^311 jtJJt ip<ii->»t ^1 iLa4 3^3 (3) 
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jS3j^ (jh I jla ‘t-^j ' 4 I 3 J^j-4 m (j^ 3 ^Ll£ ‘I ..1 < ^_i_uu 

j^■>>.»Jt ^Jilt I^It*> 1 ^j (. 7 ^) jdt (jt (^t 4jl-t-V 4.^s (jt juJali .g ^1 rt"dt j.^G 

(J^i7itt ij3>G 3-*^ O(j-4 ^ ^7 .7. tl .6 jujux^ L^JIj ^ ^ ‘ 

(i^6' 5f 

SJ + 7 ''“°' 

4-iJ^dt ^j-cLJLiis n » 1 ' ^ ‘7-> > ^Jt-i 4-LjliiH 4-LJ^^t jj_4 ^ 11 i>»l 7»7 tl dilLA 

^=f!,^ = -f9. 

dt dt I 

<Ll^ jjl3^0 ^ t-«« tt ^J.>iJt Lift d 

a+1 = a - At. 

9i+i = Oi + fli At. 

(J.>llt 4-L^ jjt^ t-«« ^ tt ^J.>iJt LL& 6 

a. 1 = a - ^Oi At. 


tjjj\ Jj^iTl ij:>JLxi\ 


i^UlLUt CtV^LiL^L) ^> 


I 


9i+i — di A l^i+i At. 

(J^ i7i tt ijL9>Lj (^jdt iZtVj_L2 4 _i_ 4 jjt J-90 ^ t-* tt (J^>ilt ' ‘Tt il LL^ j-pju 

0,+i = 26, - - ^0.(At)l 

-jjjl J j4jl LjLysjjlj3o JjJL>ill ig_>4 JjhJLa oj-ajm i_xj^=) (1) 

1 <11 ^T 

( 2 ) 


LJ jtj^l ^Lla .jj^JJt i^LIaJI J i^jtJJt 4_ 

E = -Q^ + ^6\ 

2 21 

pJ iJL^lj 

g = 9.8m/s‘^ , I = Im . 

4_jJL4JJt 3 ^ LjI jt->-^tt jl^lj 

N = 10000 , At = 0.05s. 

jULtJIalLjVl iLijIJJt ^j.xuJt J jJI jL^lj 

9i = O.lradian , f2i = 0. 

^^lJlJI i-fll t ii^t) 4 <11 1 JLiu^o » 1 if ^ 'J •^~ ^L»jtILu<Li 

if(t(t + l).ge.5 * period) exit. 
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|jL4 III•>!»Tl 2SIt-»ti ^ ^J^L) jIII*>1 ^It ^S1 t-»ti 4..4 _l3 (3) 

■ g~> >"uii~i IjLa ^ 

iJMIajVt i g*<^ V i)jL& (jt . tJ» ■*- M * t .lj^ j jt j^L^^^Tt-i-ul-l ljI iii^iTI lJL^I (4) 

JU alLutb L^jIiii-)^ ^2 1 i.Hj) j di ^jja it-irtS 

(_^) j-ljl S^j-Ls 

O 2 = 0\ -\- f2i At. 

(Jj>.| qSA .S_)^IJJI iLcj.iaJI Ljjiii-v ^1 V Cj^ jjl(jl I‘-^jl ,tJ«\l*,t 

S^Luilt ^L^^tlLmLl 1 ^ < < II •>! ~1 (.7^1 ^LL^O ^S1 l-«tl i_)l iii-v 

^ ^i+l ^i—1 
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Ult) JlJU LJ^LslSLllt 


/ = / dxf{x). 

J a 

jL^I ^ J L - L - l ^O »lj^t 1 ^ 

^ L^j->i-c»Jt liLu^Ls ^ i~i\t 11-»~,„ /^tl 1 1 I <J tt 1 gt ^III*1 <11 C)Ll^ jjtj3iiH . JuL >-^1 

Ax 4l jia ^l^ii_4 A Liuj.jLUt ^L^ii_4 p 6jL± ^ ' 1 I <Jti 

h — CL 

Xi = Xq + iAx , i = 0,..., N , Ax = ^ , Xq = a,xp^ = b. 


Ftv = Ax ^ /(xi). 


^ t-» ■« > i~i \i 11-»~, „ ti t 1 I < j tt 


^ A j.j<- * >.»l) dL^L) ‘ ' * j 


n 1 1 

Tiv = Ax -/(xo) + ^ /(xi) + -f{xN) 

i=l 


(cr^jj (j(j' AA ) LJ J_yiajlj (j 


^^LSL^lt ^ ' 1 I <j tt 


Sn = ^ f{xo) + 4 ^ /(a: 2 i+i) + 2 ^ f{x 2 i) + f{xN) 


. ^1 1/A^ _j 1/A^ <1/A ^A t-t-uiLLLa o^tiLlI CiAjj-alUl ojl^ 11->tt 


j^is:iii jLi.lj (1) 


I = f{x)dx ; /(x) = 2x + 3x^ + 4x^. 

Jo 


n ^-A-jL^ ^A i~i\t. t-«" ,„ tl Ouo^jJis ^JL^^tTmiLi A^AULtl tijLA 1 > iii'v) 

. function j) subroutine JUjlILuiIj iillaJI iiilajx^Lo 
jj- ^ • 11 -Ab 1—I mi'vl . N Lj^L^ii.^t JiA (2) 

.(3^ III (^ > III BjlcLS ^ A^.j>i-*L»JI ^LlluI ^iiiLi ^ I ^ '1'''n j<»11 iji^l (3) 

aAAII Cj^UISAJI j^!fl A3. (4) 


f2 ri /‘+^ A e 

I = cosxdx , / = / —dx , / = / lim-^„ 

Jo Ji X i_i .^oV 7 rx 2 + e 2 
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771 <L!L!1^3 


g*i .+(7 ^_yll —a l. l >.^ 2a aJ^ C A^Lijj) (jj 
JL3 Lj^l^iiH ;_^t j-j-^t ^L^jl (j-4 jJi-bA^t C)L§LIaJI Ljtj CiVL^o 

(JjJL^o jJJt <^-t^(Jl juJLj 4.^L^ ^j.».i.u.»lt CiLSLLaJI jl jj u 

atanaa = /3. 


a = 




2mE j2miy — E) 

5 P 


h? 

J jJL>kd (j j-1j 4JL>. J_y2 


B,= (!i±i)!^.„ = o,i..^. 


2ma^ 


h = 1 ^ a = 1 , 2771 = 1. 


{Cj\iX>- jJI ^ <l~^ jLL3o 


JLx ^L.>i_)L) LU ^ ^ <ii~i 0 j 111*^1 j <Li- 4 j jl(J ^it~> <11*1 E OLslIaJI ^L.>i_)t (J-:vl (j-4 

Ala-flJLi /(x) = 0 L^jJaj Lijl^ Xq Ls^Uajl .^LUl^a f{^) ~ 0 AijLsLja 

J ^1 ‘ « 111 *1 .lj! *ij iiiTI Xq ^ t-> ^ * 11 f {x) 

iU^LiL^L) ^ » 


Xi = Xo 


/(a^o) 


f'{xo)' 

J^t j-a a;2 i>i' <11*1 X2 ^Lllt ‘ 'J j Cy^ ^ Xi L§MIajt 

Xi ‘ 'J j ^l^Ju < ^i+1 ‘ J X3 ‘ ‘ <j jL^oI 


37j-|_i Xi 


f(Xi) 


f'(xi)' 

^j-iUltult <Luitj^ ^-uLi-ilt ^ ^ IJ t-» tl ^La-atlLmLl E J ^JL>|H ^JLC C = 10 (J-:vl ^j-a (1) 


f(a) = tanaa , g(a) = — = \ — — 1. 

a V a 


tM*' 0^ .10 ^ 1II1 ^t ^J.§l i^JL) ^j-cJL^iiH (j^1 11 ^ 1 ^— ^j2i fj La^tTi-uiLi .1- (2) 

iuijii Q jiiimj._^jj ij ^j->.a3< r >ji ji3>lj (djVt 

4^liLll ijLi»lj ^LU) Cy* ~ 7i/a i^\ JJall 

.a = 27r/a ij\ 

.V = 20 J>a JI>uJI J^\ (3) 
t JL)iJL>kJ (J->l (j-a <LuLi-Llt ^ ^ ' J t-» tl ' ^j^Luit .V = lOOJjxl ij^ SjljjVI j jJL>b}t ^Jl>, (4) 

.5j-a (J^= 

.Liu.uaJoJt ^La. Jt-UUJ Lj ^ ^ 4 y.itt ^LLui y i JL^I ^5) 
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,J^ J ' -L)" ^ ditl ^ciJ‘ 3^^ 0~^ 4 I^ di a 4 > III c nf 4^^ ^ •>■ a ^_i_uU 

iuL^s\-ui IA j LiTlC t ^ 1 ‘ ^5LIt 4JL1^3 ^ ^^ ^^ t_>i> ^ ddl 

4^3j.^iilt Lj^^Lai^ < ^LiiJt y3(j jjl^ j^ltJ»*,ti 


dx dXa; 
dt ’ dt 


GM, 


-X , Vy= 


dy dvy GMs 


r-^ ' ^ dt ^ dt 

r = a/x^ + y‘^. 


y- 


ljIjl^ jJt fkjiS'Jju. 




GM, = ATT^AU^yr^. 

uiTI j^ij G 3^^ ~'^3J jj^ 3^^ j-^ailill 4^^t 4 ^=j.^GI 

ki = At Vo:{i) , Pi = At Vy{i). 


r{i) = ^/x{iy + y{iy. 


h = 


GM. 


GM, 


-x(i)At , p 3 = - -^y{{)At. 

r[ty r[ty 


k2 = {v^{i) + ]^k:i)At , p2 = {vy{i) + ^P3)At. 
R{i) = y {x{i) + ]^kiY + {y{i) + ]^pif. 


ki = 


GM, 


GM, 


LVl a , , , -L-xa KJ! IVJ. o , , . X ,. 

^^-^(x(*) + -ki)At , P4 = -;^(dW + 2^1)^^- 

x(i + 1) = x{i) + /c 2 . 

+ 1) = Vx{i) + ki. 

y{i + 1) = y{i) + P 2 - 


Vy{i + 1) = Vy{i) +pi. 

j3 4^j.xult ^ J. 4 JLI 4AtXL)^t pj. N 1 jj-4 pj^ 4GjLuJt CiV^LiL^t 

.i A 1 4 

j>LIXlIt i^l III G 3^—' — ^^33 4 -l^ jjt 3-i^ ^ti ig >4 jj><.Lj 9 1333233^ 


III 4 iti TI 


4 411-« 11 4 11 II *1 TG ‘ ^ ^ *a 1 t |j |_4 3 Ji^^ 4 411-» tl t, 3 iiitt 3 1 II c tl I > III •^1 (2) 

Lj 4JG5iJt 3 ‘ ^5Ld i^LG (jLs jGJLl ^ .< 1 Att C)tjL»>jJt j*b.LjG.iAiI 


E = -v^- 


GM, 
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^ itrT) ^ ^-4 4.ua^lj ^ jJL^a (j jjl^ i > <»'>» (3) 

jJIj l^l jIlJLs (jl ShJl^LuL^Jt 1 >^t^SLIt j- C uL i -m ^_,JL La 

L^l I^'ll .(jj>jLui J iti gTt J J (_^J^I J 5j-* jJI 1 >^t jSLII djLft .J-Jui^ JL>. (_yl) 

Lj 4_tiLL^I ljIu^ jJt aJi^j jlt->aVl 


®venus 


0.72 , dearth — 1 


®mars 


1.52 , djupiter 


5.2 , dgaturn — 9.54. 


A <^-it^SLO L)~^ J '' OjjLs L)-^ (j it■>i'i 

4 _Lj|U_kjVl (Jo^^ (titI 3^2 ^ ^ <1 /,. tl j <iitl ^^ i^Lx^t (J^l L)~^ 

a:(l) = d , 1/(1) = 0 , ^2^(1) = 0 , Vy(l) = V. 

^ ^ I .^tl jl III gTt (d ^Jjxt jj_a IjLx 4 g g a 4_iJtjG.j^t 4^j.xuJt L&jL9>G ^ ^ ^ 

^Ldilll UijL^iiJt 3 J J-ft jLi-u-gl) (j) L>~^ ^LLa 1 g'ljjit'i |«IL) 

^_,JLc J1^■>!'i .{j j.^\ 4j.IaJI 5 ^ j* 3^ O >SL3 


n = 



^^1^9 ljI jl^^.5LLIt 4 lJI^ j ^LLLaJJt 3 jt->-^tt ■>> <1 


At = O.Olyr , N = 10^ - 10^ 


1 >i.^'t t_ut5La t—k^LLLa L)tiilLilt jJL^s L)i wn-x (4) 

ij^ tilift ij^ (3-3^0 .kJL9>tj ,t->ji>»tl 1 j^^jLukj t-ckuLLUl tluD LjtjlLjLalt 

1 ^SLIt 4^1 j..g.j ^LLa 3jjLgl) l-l^sI ^SLIt 

(I g IM tt 4l ^ L« juljI 

LJj^ ^L>g jtkJLa ^_,-Lc ^jtt ^jiLg^ 4jL3 4^^LL4 4 ^jJ 9J 4^|jG^Vt j-t-uLu (5) 

IkJt^ 

IkJLA ‘L» /, 1 . 11 ^ III g drT) 1 L»* 11 (j' ^ O L^uLkuy I ^jLgJt (6) 

ilh* (_yjLlII LH(3j ij^ lAa <^L3UI lj jLsxB (^3j^LS j^jj_gILI) 

.t^jjLl4-4^ 

J.^‘ jiLfI j (jLi-gj^t (3:<j 3jl J4jjj |g^t ' ^L3Ht lj jL>ilt ij jjU 

L)l ^‘' .^Lku-gl) ^j-a ^-a I iii^r, iL^LLLa j ^_jii g ditt j^O i—i^a ji[JI ^j-a 4^Jx j^a 

3^_3jjklt ^ ‘ ^ .j3-LLj| I / 1 1 1 a 4^1 1 II g 11 1 1 II^f, 4 _lluLLl 4 ^tt tl ljjL9l1I 3 

LjLkuLut liy^ LjtjtLjLglt I > iii'xl .jLLlcVI ^ J.3JL1 l ^j ■-^"tt t ji^t l)~^ 

.g~d("> ml t3La J t^La j 
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jnhnYtl AJLu(b4 


^ i g^ 1.^ ^ 5^1 > IIIT) La^=t^5Llt Ljt^thJLA (jLs _j ' (j^Ls 1 > III*>» 

3j ‘:;" Ai jjiL^-i (jjjL^t tili^ . lJL^I (jn^ititt j4.ua^lj ^ ^» 

^SLIt tJL»Al i ‘t*1 ^ ^ 1 Aj) ^_yii ^ ititl ^ja L-L^at^SL}) lP 

^ jt-«^tt j^L>i^ 3^^LIa ^ i—c^st^SLIt j_ljIj . 1 g*< > 1 L«^ L( 


(jii « ditl (J ^ <11 ^ ltd! i>t-^tt (jtjJJ ^t ^LLtL) J (J.<jl 4.<^I ^ ^ .-^Sl *, ti 

^ ^ >11 OJLao ^_^u.^<^) ^^ < II ^ <tiTI 11>»-^ 11 tijL& . ^jii ^ ititl ^j_4 ‘ ^5L0 jl III a 

. j ‘ JLa> (jJL Ljt^tiJLadt i—iJLd ^< I 11II 1 i^UlO 4 h i<^ 4JhJLAL<li-a L-L^at^521 

^ J-^-^ 4 _> III*11Ll jjiJ .3 j j ^ j.^1 013 ^ ^ jUS OtjtbJLa L^ 4jLIa£ j ^ jJb JaO^ 

*}' ^jdt 4^LIa£ ^ ^ ‘' .(j III ai^dl ^ i>» I .>>^ BhJL&LiOa^ ^a<»i ^ ^.>>A■^* 11 4_i^Ib.LadI 4J1 c^^_lu 

4_idLllt (jl 4^^^ ^' ^ ' (j^ .C 1 Atl .B^i T ut-a i^JL) ^_jii a ititt J ^ ■>> I .>>-v. 00^4 

566 arcsecond/century. 

4jL2 4 g “v .4JLu< 240000 (J^= ^_jii a dd) ^4JLaL^a 3^^4 ^* ‘-^ < 4jLIa£ 1 i>>-^ ^1 

(_^Lj j.^G jLOcVI ij-i^ ilia>l (j II a ltd! ^a 4jLIa£ i—i^a ^ LhH^ OJ.' ^‘‘' 

4^^^^ < > III •>!~1 4^LIa£ L-L^at^5L0 

523 arcsecond/century. 

jjk t3j-^' 

43 arcsecond/century. 

I^jt ^^-1^ ^ tl H 1 '< a g4 4^L3 iJI 4 > i i h 'i TI ^j-a Vt I <.,. A < ^j5La-) V 4-aa33It dilLA 

II a ltd! 4JL1^= > > 11 iM al-tOOlt atJOOl i^La^LUl ^^ .. 1 ■>» A tt ^Llaot ' ^ 4^.3 

Lj 1 g I <^-3 j ^^ a ' ‘ I*1 ^SLTI a^-LC ^j-a ^ di i <» i ^^-lTI^ 

GMgMjn , 


F = 


a 


(1 + ^) , a = 1.1.10"M[/" 


/y^ ry^ 

^ III a ltd! .>»-*. 11 00 J4 4-i.a^3 (_^l C^4^ 3 jOJt lijLft 0^ 0~^ Lj44^ i-2jl^I 

.0^^-^-Tl 4 -lj10 43 ^11111 4^12ajtJ 

jLOc^t 0~‘^ JL^Vl 0-?*^ 0~^ (3 jC^I 0 ‘.'L&LLajiaOLuit ^^3dt 3jOO 0^4^ (1) 

. aMct 3j3^jLadt 3jOJI 

^Llao . 4jLIa£ ^^IjlLjVI i^^ ltd) . ^UlLI |a^a 4 -ljIjG.jVI ^LaL>l 

Xo = (1 + e)a , 1/0 = 0. 

jJaOJI I .^n a I'TiT) 0^ ^ 4iaOj JUljI ^ TJ«-^ ttl L.4^a^5LTI jLLaO Lul (_^t 

6(X i^l III a TI . 0.206 (^^1 m 1 e 4jlIaC ioO-^al^O^ ^ 4_lSLL 2 3jLa>^ 0.39 ^^1 t-»»t (X ^_i_lSLTI 

(_^|4IL)^I cl3j.Oil . ^_^ia^LiJI ^iaOJI j^=j-A 0^ OtI^ j.ai^l JLa^l JLx j3 (.7^1 t_>ii a dd) JUlj 

i_i (^IajU ^^3JI 4-Lj|jLLjVl ^TJ»-*■ Itt .ijLIaC A^j-ui ^^liidl 


'Vxo 0 ) Oo 


GMs 1 


1 + e 
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^ ^ ' t->~< ^j_4 L^l iii-v j.u^t iJL^ 

j,jju^\ jJa^t i ?'.>»*t b [x = 0,y = b) 2 j ^iuJl^LuVl ^t->^*tt 

b = aVl — e^. 


^ 1II ^ I n t) 11>» tt 00^-^ 4 _l^^ 3 (jLS Oj-juuLa <L4L3iJt 4 > 11II'd I ' ^ 1C^' q; jV (2) 

4.4^ jLl3o .^jJL>^ja Cl§j CjIj i^4JLC 1 a ‘ ,»> 4JLJ^ ^ j' t->«t 

Q; fj j_jiSLj 


a = 0.0008A1/2. 


N = 20000 , dt = 0.0001. 


I 'I jLL^o 


4jLIia£ J^j_) ^Lit-i^t 1 ^■«* I^ 6 jJt > < III•vl . p ' ^ OJl^ iy* jlu.^1 t wii'vl 

^ ^ 4 ditl 4^1 III ^ t) Lii3_)l t > III •^1 . iU^iJLS ^ ^aVI ^^’>1^0 II ^ ui T) ^ 

i^\ 4 11II *1 TLi 1 ^ I ^ 

dr xVx + yVy 
dt r 

4Ja.dJ LA ^11 ^ ditl 4l 4la^j Jl3ia\ '^~* L^J^Lul ^alSiA ^ ^I 6Jl^ 

9p L)~^ 4 OJJb ^Ai^<AAJt\ . ^Jll ^ ititl III ^ ititt I.H •>! TI 4l 

. IjLs . iUVjL) (jii»ititl 4l ^ t->^‘t jUljI 4jLIa£ ij L 4 I 

lie ltd! J jjlIajLl (_yiii^itiTI (j.^_>i.H'>itt 4_i 11-> I I.H T Ij (^iIaII dOp/dt 

. 3ji r i3<.»li oi Cy^ 


3‘i . Q; J l)^ (3j1-i-u 1I tJ' J-i-ull ^4^1 (3) 


a = 0.001,0.002,0.004. 


g > *i~i lilt . JLx^t . ih 'v^jj 13La . (X 41^lJL) d9p/dt . d9p/dt i 11»'vt 3j-a (.y^ 

^ ‘ ^j' L».»t ^III aiti11 tt 4 _l^^= 


a = 1.1.10"®A1/^ 


^tuJI Jjx jt jJ^Luilt J.uilt a j>|ji3LLuiL) (4) 


d9p 

dt 


= /(a)- 


. LjLaLjj.^t 4^jJd ^La-aLLuiL) 
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g j^Ij CjL>t3 jS3 j-4 ^ ^ 3iJ^ ^ 4JLI^3 3jL^ ^1 jj 

JJJ>i^l ^j9 ijjj\ jJLII 1 g t '< 1^ J O'^ J-4-C AjJai. J-^ ^_yA (JjI jj (_^l A^sjj>, . 

^ —TT (J* j ■» ^ n J jt TT ^ ^ ^tl (jt Sj-tJu^ BjJjaiaJL) l~>iri_>t ^ J^LAll 

ij3>Lj .d^LSLj^l ^t-»^360 1111 4JL4l^= ijt ^jSL^ ^JiJt (jLs ^^LULi 

ijji^s j2jm jjjLdj L^l j" ^'<j m ^JLLSLIt ^ 3 LhH*-^ 

dd j dt A^ ^ III11 ^A ' ‘ 4_U^LiIL4 ^ A^S J.^tS3 AjLU^^VlLJi Q^SLa ^ a /< a ^ 1^ \ 

• TTllq 1 ^^LulA i_u^Lu CuD 

, de 

Airag = -mlq — . 

^1 jJiJt iiJ^g~> lilt julj j.^iiJI ^ ^ jJkil A^s lJL4L3o i^A^ »t ^A lilLSlII^Vl 

(j* j j j ‘>>^1 ij^ a\ "iua ^\JAj9 jLtia jJidt .t^l A-^tl Jjxt jj_4 . ^^IlAILiVI J^LS2 

Ajujj j I'd jJI ja Ljlj ^j^JJt Aaj^a 3 L^t j~ ^'' 'j 3 

: ttiIFd 

-fdrive = ttiIFd sin 27rz/i:)t. 

i7i T) jl3>lj ^^LiiJt ^jA^ aA (j^ ^7 ,7. tl 


9-0 de 

--sm6' -g— + Fj 
I dt 


£) sin 27ih'Dt- 


• Ij (^_gl III 1 

■J-^3J^ - 




■ I = g ij jLloa (Jji)jJLU 4<11 dt (III jl(3^J-4-II \/9/I j3JI L«JB ijL>.lj 

'. J-A ^ - J-Ijl jjl 3^^ ^t^nott Jj>iJI Lift Aj-fL3UuLU t_^ijLll Jj«i2l 

f^i+i = r^i + ^ - y sin6*i - qVLi + Fd sin27rz/^ti^ At , 6i+i = 0i + Itj+i At. 

jA^A^ L4 (^I (j_a J (chaotic pendulum) tjjAH jJLil (^b lAj-su iiuiL^LbaJI 4JU^I ajl^ 

^^.uiLj Liis-sl l^^.jlJ ^iJL^ . 4-cj1iJLlJ^ 1 ^ ^ tl ^utiol t(I>1 ti 4-1 

. (butterfly effect) 

4_> h> t) 4 3h>*< oTI . (jj*! 3 B a ^jj"i 3j jJaj A^ i«^~>J 01 j-A jAlt jlA^JQ 0^^^ 

4^=j.^Ot ' *' n ‘*>1 131 ibjxjtAOl ’J -*.7 tl 5*^1^ ^33^ A^s jAjAll 

ALA^L) J Ij^I ' ^ 7»*t j^^S3 V "iuj^A j-^ 4^=j.^OI Aa^jJo jAJI AAJL^Jt . 3j^LiiJt AJIlAA^I 

i^A 3-1 4_OtjG.j^t lA^^^AJt lJLjjl^o dlAA 0l^= 1»g a i b4, 

. O^liOb AJLAi_4 ~A^ 


1 ^jAII jlj^l ALui-^J -jJjl 4^jjlj3o oti Jj>OI L^A jA>%Aj» ojalA lA^=) (1) 

^1 AAAI ^ J [ —TT, tt] JAi^l j_ya 3ja AjAl LAb 0"^^^ ^ b* ih<->»MA . 

liliA J (lA ' ‘^•*- 3AAt 0^1 0-^ A27r ALALi j> ^Joa 0A<-AI Ii3-^ ^ j A> l^A 0 3^ 

^IAA= 

if (61*.It. =F tt) 6*j = 6*i ± 277. 
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^_Lj|jLkjVt cla^^ di11 ^ JL>lj (2) 

2 1 

dt = 0.04s , 27rz/£) = -s“^ , q = -s“^ , N = 1000 — 2000. 

O ^ 

6i = 0.2 radian , f2i = 0 radian/s. 

Fd = 0 radian/s^ , Fd = 0.1 radian/s^ , = 1.2 radian/s^. 

'j tl 2 ^ iA I iii'dLl . Ml t^La jJI 9 iiUjtJJt (4-uijt 

jL3iidl ' j -^~tl 5 iLuLiiJI ^ nj ^^ 4 uiiBLj t^La jJI ^ j^L4 

liLa .4JLa jVl Cy^ jjIjj j iLLsJ-:vl jljj |^ 

. . 4iidliLit ^ ‘ ^^ 4 KII itLi .\i < 
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4 JL 4 j^t ‘ ‘-^ ' 4->.» r cj» (jJL Aj^juo ^ ^ t-«* 11 A^s 

jjiL^-) V 4.«J^La ^' t->^ I i}^ld 4^=j.^iidl 

1 g"<J J J ^ j itifi 4 JL 4 JX jtj^t (jt ^ L>^ 

. ^ 

^j_4 j j t-^ tt »i (0,[2) Jai rt *dl it^ <7*^ (jt ^jiL«_] <L!L«jVl L>~^ jtu.^1 (4-‘^J 0^3^ 

4^j4a4t 6J^ 1 g_> Ir, J'-^■*■ ~' daLdJL}) . Z/^it = 7Z (43j..i^t ^^Ja^l3 4JL« jVl 

. ^JJSij \rt a 

^-cjIjG^I A^s A^s (j ^jiia ^.^1 jl^g 11 ■ t-»tt ^ ^t-»‘ 11 

clajj-iULj (3Jbij_) ^ . SJLsj^l <_y^l-i (_y3 4^3 j^ j (_^jjLuaJI AJLaj^l 

(j^5 LIj . ijjjua j^l jl^gU LjjL^idL) jj4a4t ^\juah jtJ^t ^^<n 1 .^JjLl ^ ^^IlAIuVI 

Qj» j ^jSa j^t jlJ.^JJ Bj^LiiJt ^^IlAHj^I ~A^s j-^^t LiJL^^t Ij| jSj\ ^la.^ 

. ^^IjLuVI Jajj-i^L) ^ Aj^ LjjLx ^la-d^t IjL^ ijt jJI 

(3-l-it!lj V jI^JL 4 jj4aJt ^' ‘>>^ LjiiLx ' ‘>>jt ^ i^dJaJL^dt f^jSjl ^ ^ 

<lj| j^l jlj^l (jt A.a^La^ Ji^sJ_) i_ujJiJt LjiiL^iiJL) ^ 4 <»j ^-tJloIuVl (4a^j.uliL) 

. ^-ljI^ dif, 4JL4 ^o ^h > t 4jt Vt ^‘i ^t-t' 11 '^~ ' ^ 4-t.» r cj» 4 J. 4 JX 

A^IjGj^I 1 ogP>jj-<^ tjSJ jitjL^ILs B ^ A (1) 

jLaklj ^1!L4 . 1 Aj At-> La^CI^t ^ A t" ^ a 
6 * 5 ^ = 0.2 radian , 6*f = 0.201 radian. 

.6b j 6a (3j-i^i-j B ^ A j.:>idl L^^t!L>.^l (_>uL2j 

A9j = Sf - Of. 

In 4 w 0 •^1 

Fb = 0.1 radian/s^ , F^ = 1.2 radian/s^. 

~A^s 4JL« jVt OJL^o t!iL4 . (jLLl^L«lLa B ^ A l!iL4 

^J.»jtILu<l 4_tjLiiJt ^ I ^ 11 4 > <11*1 TLj . 4_> ^^JLIt 

N = 10000 , dt = 0.01s. 

(Jjxt 6 <UVjl) Vi A ^^<iitl t <<II•^1 (2) 

Fb, = 0.5 radian/s^ , Fb = 1.2 radian/s^. 

jtjL«JI ^ < ‘ .JA^ liiLa J [£ j »i^tl 4JL4j^l J^l (j-4 jjiaJt ^Lua^ jljL^dt j^L4 

1^j-SJ\ <LLajVl ^_y3 jtkJL^dt (j- L atIo . B ^ A Oji^ • >S AJLaj^l ^_yS 

. 4_Lj|jLkjVl (Ja^^ ditLl 
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iUlJilt 1 f^jLx^ 4 JL 4 j^t (d,r2) .t->ltt jj (^jSjijj ^la.^ <J (3) 

IL^jLuiISJIlJLII «jL* <jr^' SJLaj^l ^ sinTTZ//)^ 

if (sin 7rz//)tj sin7rz/£)tj+i.lt.0)then 

write(*,*)ti,6'i,f]i. 

J J t-» tl - 1 OJljL>-^ a Vt ‘ t ^ ^ /d . t-« tl ii « (jt ij^ i^7i-*i~) 

ij3> . 

Fd = 0.5 radian/s^. 

Y = 10^ - 10^ , dt = 0.001s. 

a3> . (_) I ■>» 'I I a aP.- . ot i ^ « jl i^2j>t3 

Fd = 1.2 radian/s^. 

AT = 10^ , dt = 0.04s. 

^JuulxmJ liLa j liLa . B jl J.^JLI jSij\j A jl U 
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.j juJI ‘ ■>>~' 3 j^lld jjiia ijM^ jJtJI ^ <1 ..^■^tl 

Jl>-\^ 013 ^ ^ I 111 4-ljx jtOiidt ' j ^1 3 Ljl^tu.421 

j 3 jOJI jjj ‘ )j jLuij jjj 013 Oljla^ ^ 3^ ■ (period-1 motion) 

jjj 013 OIjIlJUs iL«Lc ^ j iO^jlOiidl 3jOlt t-^LiOat iOtjjt ^Luj^ J3^ OIjIjla 

3jj-i i >>^.>> ‘2^ (_^^Ltaj Iajjj OIj|jL«JI . 3jOJI i 2^ jLuu 


j O)jlJO*Vl (SkJLc ^ . (period-A/* motion) M jjJJt 013 j^l iL^jL>J) 


3j_j-i (_^jLtdJ jlj-il 013 ijjjj OIjIjlo j_yA 3 jL3lII j_ya 1 g_> ir, J ->i 1 OIjIj^I 

I ^^1 .>t~i 3^^113 (j3t .(mixing) ^ ^^-uiLi i- 2 j.jlj 3j.^Ll3 ^ 2*^ p ..,.^~i 4-LjxjL>idt j ■^~ 

^j^Oil . jOJt pJLc ^1 3 jL)jlx 3^^113 jOajOll ^tjJidt jl&LOj jjjdl 

.u - )■ CX) L«d .t-t^i>ttl I ObJL^o jOJI 

(J J^= L^?*' Lh^ ^ iiOJLlSi_a A/" tJLx ^ (j) ^A/" jjjlII 013 J^l (j-4 

3 j '■•<'• ^ iiL^ j3 (jyO>iJL4 jjfc j (bifurcation) jlia^ljl ^ 6* AilaJI . Fo 

^ j^OJI “Xtl I Ou^o (_704 ljI iii-v |j^ .iOjOd jOft 40laJL«dl (fractal) 

j-3it 


4_Lj|jLkjVt iJa^^ ill11 ^ p_L^JI JL3>lj (1) 


2 1 

I = g ■, 2 ttvd = xs“^ , q = -s“^ , N = 3000 — 100000 , dt = 0.01s. 

O ^ 

9i = 0.2 radian , f2i = 0 radian/s. 


pjiit i J-^t <'^= 23^ 

Fjy = 1.35 radian/s^ , Fj^ = 1.44 radian/s^ , Fo = 1.465 radian/s^. 


(jLaiOj Fo ^ (jULuLikit (jLL^-OJt .Fj^ 4..«_l3 lJL)LajlIc j^jAI OkJL>i-j I3L4 

jOa jtJ.^JLl iOjOd jOft 40laJL«JI ^ j 

F£) ijL3>lj .‘2Tll'£)t = 2n7l klsj-OJI (j 3 ~>il AJOj^l (J-:>>l ij-« Fd Ai^kJL) 9 I < iii'v) (2) 

JLsh^I 


Fd = (1.34 + 0.005A;) radian/s^ , k = 1, ..., 30. 


013 01^9Ot jIlJL^JI <U^ (j^5^ jdl 4_ijxjtO^dt ■■^j3Lh!^ 

.Oljj) j (jLIjI iLjL>>tj jjkjJI 

, t-k l-k a ^j.uLl 3 ^kJLiJt (J-k2 3^L3iJt <LkjtLAlL>^t jl IkAjx p g c 11 (j-4 ^1 j III tt liJL^ 

jO>lj p^ 3 2N 6Ju^ 4^9ljI iii^i 1 jOj .^011^9 Iilift jL^ot (jiO-) ji t-» /•?.*<Vi 

(J 4.^^ (J^l L)~^ 3i ^ Lji iii-v kjOc 3j-OkVl 3jj99> Y ^t ‘1^^^ jLOcVl 

. Fd 




327 


CP and MFT ^ B . Ydri 


jJ^LuU jU5jVI j jUaijVI 


4.^jtj^t 


d20 ^ ld9 ^ 

— = -smO - —— + Fd cos2nuDt. 

dF Q dt 

4-iJLIlt p ' ^ 5l^aL>>.»JI ajjb ijL>lj 

2 

Fd = 1.5 radian/s^ , 27rz/D = tT'S”^- 

o 

• G 3^3 - 4-1-4 jjl 2j-4dt i$jL& j>i > I ii‘l i^4JLC (J-:vl (j-4 

/ci = At f2(t). 


/c'^ = At 


sin 6*(t) — + Fd cos 27rz/DAt(t — 1) 

V 


F = At 


F = At ( lt(t) + -F 


sin ( ^(t) + “ 7l( Ai) + 0^3 + FDCOs27rz/DAt(t - -). 


g V'"" ' 2 "7 ' 2' 

0(^i + 1) = 0(t) + F- 
f2(t + 1) = f2(t) + F- 
t(t + 1) = At t. 

jJdLoJG ^ ..^41*1 ^ jt-»4 C)Fl4L4dt . t-» tt 

0 ^ -0. 


^4-cjx^L3Gt 2III < Fd ljG 
45*^j-s» ^JLit 4^^ 1.-^j (^ijJt (jLs ^^LUG ^ jl IiMT) ^ jJaGIG 

i»jj^ii-4 jGu^ •*- 4^j cAjJI ^ i>jj^i-4 

jj4 ljIj 4jjJ 4 jGJI jlj.^1 4^=j^ (ZjVjGl^ J J^_9 PL 4 IIAMI j-A4dl (j-4 

p a 1 4 j 1 ^ > j| J,^| ^t J.30 ^^J.>idt ajJh .6 —y —6 j^IaGILiG j-i.«IG ^ 1 gi^T Fd (^^Lui-) 

0 j-^ (d jJGGt i)jL& lG-us j ■ 0 > 0 4GJaJL4-JI ^1 0 < 0 4GJaJL4dl (^yS I- 4 I 4115 j 

jl t-» ,'?,M . tt tt I 


n = n{Q). 


‘~ii tJ»->. 1 tt Vt ^ 9 p^ J4 ^laG.4 I 11 II ■>!~i GjLa g 34 J-?AI J-4 Gl^ A~^ 

4.^jGJI 441^ Ct^O . g J g* 4 JL;ji. 4 4-^^ A^ j-IaAiJG J4 ^laG.4 (jl .t^-%-\l*t . t = TzFd 

jl p^j ijAa-^ (jA^ (Jj^ajO g* (3_^ J Fd JJ4 (GG 4^j^ a-s»lj ila^ (jA^ J 1.^■>!'1 
4lL3^ i_iJLd jl j.^1 1 4 g >4 iA^-l^-) jljiJLlI jjl^GI j jGL3-j jGa3GI .Fd m < AF ^ ^3^ 

(j.4 MlajI A -{P ^ 0 ) 4 31->i 4TI jl {9 > 0 ) (_A-4:A* 44.laJL4-II 
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^L!L4 IiIla jj3 Q j j-kC (j ^ ( j - L at T u jJdLl!L«2l (J.>idl 

.^JdLLkJQ ^ *<1 1"tl ^LluSLj^I /^1 tJ«t 

o'j^ jl t->,»M ,t->t^^ ^ < jjaJI ‘ ■>>~' Bj^LIa ^Jtxa j I ■>»ji 4^LuiJt 5l^3L^ii.^t 1^'j ' 

(^jlII ^^l^JLkJl ^1 <t Lus^l ^^ txti 

^ I rl^ *» \ 

t —y t + Td. 

J\f j^jlII Ci\.i Ljl^3j.^Bt (jl .■*-Vt't .j^LlBI |ji^ Tjj 

.9 —y —9 jJaLLBLi 1 i^HjI j-cc T cJ ^ ‘2'^Td (^_gi ih < ljIjIlJlBI (^I 

L&lJLIc jsiuLJ 4 o_> rtTI Qm 0^ jlIaBijVl i g_>4 0JL9O Q 4.^^ Qm 

i_2j- 3U j^^LiJLlLS 4 K11 *1 .‘2'^Tjy jl III < j j4 j4 jlJ^ (^1 2"^ ^Tf) jl III < j j4 j4 jlkJLa jj^ jljLBI 

^ _ Qm-1 — Qn-2 
^ Qm - Qjv -1 

4j_)|jj| A ^ i7iU ^j_4 4^ j III 1 !_) PV 0^ — y oo LB (_^l ^lajjuo jB) 4.BaJLBI (j-« ljjLLB lb 

F = 4.669. 


B.4JX (_^t .B) jBs jBt (J.4^BI (j^ UJ4 jBa jBt jtJ^Lj (jBI3o V Bale 4^«BBI Oilift 

4.^ j_BI ‘~il jl L» .t.'<Vl ^j_4 4 I g~i 'i 4 j-i^ 411III III jBI (^1 (j j^Bj (jl 1 g 'i^ » 1 4-kSLi_4Llj4 

.u —y cx) LB 4.669 it^jBI ij-a^ (j^ lj jJLB j*jLBjLs CulB (jl^ jjjiJLI i ■>»" > 

.G j^= — j j i>lu3BLuiG 3 jBiBI iBLl^= lJL^I (1) 

4-ijIjG.j^I i^ j jBdl (j^ ^ i~ A I" n ^j_Llc j c a ijL»>G (2) 

0 = 0.0 radian , f2 = 0.0 radian/s. 

9 = 0.0 radian , 12 = —3.0 radian/s . 

(0_> rtti (J^l (j-« jI^JLBI 4 HJ ll-> (JJJ4| 

Q = 0.5s , g = 1.24s , g = 1.3s. 


.da^jG I 4 L 4 

(JLa^BI (_y2 g J-?'l (j-® ij3^ jiaBa i^>iii->»l 

[1.2,1.3]. 

9 — y —9 jJaLlBI 1 g >4 j 111 ^ *11 (.^Bl Qjf "a ^ i /^w ^^^La .12 = 12(g) jUaBj^l ■ t-«t-*^ 

.LJLBj 

J-^l iy* L$ 33 jJaBs j jIjlBI t I iii'vI (3) 


g = 1.36s. 
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(J^ .t - y t + Tj) j-ljG Ol>%3 jJaLlILa (J^ 

^ J^l (j-a fl = n(^Q) jit->^ (s-i-ujl -0 —y —9 j^G 

.4_LjtjG_>Vl diTI 

t —y t -\- Tj^ ^daLGJt i g ^ 1 ^ ^(^t 1 g ‘ ' (.7^^ Qi 


4 _kjtLAlL)Vt do^^didl j*i ' •^ Kii 1 4 _iJLj ^ j I ri t) (4) 

9 = 0.0 radian , f2 = 0.0 radian/s. 

j_yS Q L^?*' Cy^ ^ “ ^(Q) jldajdijVl .t->t->-^ ^ _3 iS3-} ^ 3 jlJLadI t < ni-v) 


[1.34,1.38]. 

4da^ j j^jLdLil^ CcjLj t wii-v I. J\f = 1,2,3,4,5 J^l (j-a Qj\f (t>_> iiTI jll->wi'i^t a Cyy^ 

Jjj>iddt oajM (.7^* Qoo 

(jl Aa J-P^ J ‘>>at 4^jda^ Ct^ jGdt J^O ^ j^GJt p ^ (5) 

^\iLa 1 Aj At-> 

A0 = 10~® radian , AH = 10~® radian/s. 

Q p.^ Cy^ IAH| 1 >I II '»»l ^ ^ iS3-^ ^^ ^ jljLadt > ><»“vl 

Q = 1.372s , 1.375s , 1.3757s , 1.376s. 

jGJt ^ ^ t-> *, a 1 ^*1 Lad (da^^\j GLa 
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(JjJiU^U -I d^UjdJI 


(^i <^LId 1 g"! “vl <11 a 4 -iJLc ^j_)<JLjLJ (j JV 4^3^^ j.jZjU 

Lj i_3j.jLaJI u J3ja-jjLoJ (jj-aiL) r 4^L<.u.a-i j^ 


dt^ 


M = 4e 


fk, = — 

Tki 


12 6 - 


(_yA i SjijJ) (j\£. k SjijJI IgtTjPi'i (_yUI 5 


2 ( — 


12 


-) 


6n 


— ^x.i — 

m 


J2h 

k^i 


Xi - Xk (fvi 


Tki ’ dt2 


— ^y^i — 


LJ i Bjjllt Cj^jLai^ 

1 ~ Vi-Vk 




m ^' Vhi 

kj^i 


^_yILtl LJ^J-LS ^ 11 .>>1 A~ tt CiV^Lat-a-^l ojJb (J->i-I 1 g t a n~> <«*< <« 4 _l^ j jt j3iidl 


Xi,n+1 ‘^^i,n ^i,n—l P (^^) ^x,i,n j |/i,n+l ‘^yi,n |/i,n—1 ~k (^^) Cby,i,n- 

iuJQJI LjVjLsi^l JU JLX-LuLj LjLc^^-UiJI Llis-ll fc * < M •>! *4 <« 

^i,n-\-l ^i,n—l yi,n+l yi,n—l 

Vx,i,n = , Vy,i,n = . 

jLjI jj-a (J I' Lh^ LZa-it .(7 = 6 = 771 = 1 JZ L >i.a-tt jJI j>i ><ii‘i .t-« i /„,~tl ^Jjxl jj_a 

Uj* (Jr^ jUilt 4-<JL3 iJI j-ZLaij i^jL>iJt (J a ik«~i 

LijLs i}L^ol iLZLiJI (jtjj3o (jLaaJLc 4jl^ ^IZJLj j <-2t ijjju 


if (xj > L) then Xi = Xi — L , if (xi < 0) then Xi = Xi + L 
if {vi > L) then i/i = i/i - L , if (t/^ < 0) then + L. 

Ll‘1 i^\ X isL^oVt ^ <11 ^T| ^La I^jjlJlII i^Lji^iidt jj..<ZJt < > u«i 

IZJ 1^3 ^_a VI I jL& * ■ A * < jalLj .L j‘2 ^ 0~'^ V ^ ^ ^ ^ *1t j 1 <« aT I .^3J <1x^3 ^ 

if {xij > L/2) then Xij = Xij — L , if {xij < —P/2) then Xij = Xij + L 
if {yij > L/2) then yij = yij - L , if {yij < -L/2) then yij = yij + L. 

a ^4^ wmTI .j>G ^ S P <jL^lj ^L<.u.a41 a<jL& 

L 

y/N' 


a = 
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.Qj ^ 2,(7 N ^ L ^LL3o .0?' i a (J.^3 III a 4 -lJL^ N ^j-a ^J^LuiUj utrTI (j^t 

(jl.^= j-a ^ ^ ~ "x/ N{i — 1) Y J 5jjLlI (ZjI jjdl ^.u^tjL13o 

J.1^ utjJa^l JUlJ .(i + 1, j + 1) j (i, j + 1) c{i + l,j) i{i,j) 

[—n/4, Yn/4] (JL^ii.^t jiti c, jIjlcI ^Liat LjLuiaisjJt 

liy* Vq (_^jLluj ^ j^ * L>^ 3 '“CjLc j.u^t jL<3o .Cjtjjll 

■Ol jjJ) 


(At = 0.02 iN = 2b iL = 15 ■">!jt->-^ti ^LALi t. *2 ^ ^j '" * (1) 

.4la^.>iJLa 4 1 a•>■ 1T ^-lISLII 2al t-»tl ^j_4 ^ ^ ^ (^ 3 ^ ■'^0 ~ ^ 3 = 500 

ti^La .ljI a_><ii~*itl ljI jl III a 

jBtll lx\l a jA1L9>1^3 (2) 

i_) ^ ■»~' 2al t-« 11 (^^1 III! ad p ''^ 'j -l) 


N 

^BT=^J2Kx + 4y) 

i=l 


•tjjl jlIc jLill 5<L:>.j.s ^_yALa .Time — 1000 — 1500 Ll>- T (a..tu jI 

^ ^ ‘ ji 3>A IIITl j r- ^ I,,, 1 A\ aLAjI i > <»•^) (3) 

4^^ iidt 4^..!^ Time. A iALL& i~il tx->. ltt ljI a > <h*>■ 0 (d^= ljLc^^ .Time = 2000 

• 4J L mJI 6Jl^ j r- ^ t,,, I m ^ j'^i *( ^ .4JLcaiJt aJi^ 

iLa^tAll j ^ 4.a^tAJt o 

.tZj^Lui p ‘ ^' o 

.4JLul^ 4JLa 4^^ in it 4. ‘ >->.3t-a 4.a-L3 1 g >4 (. 7 ^^ .^lJLC JL)4.>iJi O 

p ■ o 

(Jjjiii^L» ^j9 (jjLa 


V _ 

^Maxwell (^') = <^1-^ ® ' 

ksT 

LJ ^ at^nTI 4 aj iiO ^j-a 3jtj.^At 4^j.^ g TAT am I 

ksT = mvl^^^. 

OiJL>i-j IjLa ^ 41 tt < t 1 111 a Tl p '' “ ^ j I g > Ir, ^J ^ tl ajlj..>iJt 

.4_Ljt4lL)^t 4^^ III tt t^l 
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:2 diiMUjJJI 

^ 1 1 ^ (^Alt j' ^ ^1 in ^tt aJL^ JL)^^ 

(jl 11 i^tt ]UL>JQ ^ I .^tl ^JL>ij L*>->-lc .^JLjLudl 

(j ^S3 ACti L«^ ^ « Al j a i^LlSLIt ^ ^LdSLIt L^-i ^ ■>» A^*, a. ^^S3 ^jt >— 

1 ijjSa (,^111 ^L>idl (j^ IbJLp jjiL«-4 JL>~ (j i^^l ^1 5jlj.:>idl Cy* 

jLL^O C)tjjJt ij^ ^ I LjiiL^O (j}l^ jj Cy* ^SLuj Ol ^_> m ■>! Tl 

.L = A ^ N = 16 ^ tl 1 ^U13o Aj» 1 III a 6Ji^^ iJL^I^ ^ 11II t ^Li i n a 

i^^^JL) 4 -iJLi^ 421^ (J ‘^**■ *< LljLs 3^^^3jL«JI ^-ljIjlLsVI ^L^^LLui ^ Cyy (1) 

■ ^i j i- li La ASLl^ C)t^ 

LjIjijiiJ ^ '*• i^LLaJI 3^L)j 4JL4.>idl > -^ I 111 LjL><-i jl ^ .■^*<Vi Cy^ (^) 

2 jt->-^ 1000 (3^3 ljI iii^iTI j_uJtj j-aVt Iili^ (3 j ^•^~' L i - l SL^j .Lj^jlj 

hh = int(n/1000) 

if (hh * 1000.eq.n) then 

x{i, n) = x{i, n + 1) — R{x{i, n + 1) — x{i, n)) 

y{i, n) = y{i, n + 1) - R{y{i, n + 1) - y{i, n)) 

endif. 

.R = 1.5 jLi3o .R li ^tl 1 j..uiJt Ljj_Lb iLi- l .»jJt 

j ^SlttlT IjLa aiL^ jL^-loj^I 1,^-1^ Liat 

.5jlja>JI 
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A. li L» r >.^) ‘~*l ■ ^ tt b- L ^ILat-i ^-ljI ^ iti f, 4-u^ jIjLcI jd 

. , f an+ c 
r, ii = remainder - 

^ V M 

Vi ^_^tjLL)Vl i^\ j-uLidt ^jbdl ^ 'j jt^ii j . ^11>» ^ti M Iji .>>11 M j c ca Cut^idt 

p ' ^ (jiaJLi .BjU-dl ^ » III < 

a = 899, c = 0,M = 32768, ri = 12 ’’good” 
a = 57, c = 1, M = 256, ri = 10 , ’’bad” . 

^LUL^ j jjjj-iJ) ij-aJu remainder idldl 

remainder ^ = mod(a,5). 

0 

, t-» l-» ■C a ui'l I .i AJ^Ju T{ p^^t p ' ^ ^L^JtlLuiL) 4-ut^.ujdt 4 t m t m L-CUi^l (1) 

■{Xi = r 2 i,yi = r 2 i+i) jdLLdl 

lV>^^ \ .4-lj 1 1 jIjlc^I ^ t /-^1 ^2) 

4 w(I.54 -cjI^^Ijlc^I N (3) 

1 —h /1 \ 2 

,,, 1 sumi(/e)—< Xj > 

sumi(/c) = — - - 2^ XiXi+k , sum 2 = 


N-k 


i=l 


sumi(O)— < Xi 

.k JtjjJt i»ijL& 1-2j-LOj 

4^1 j-uLadt luljdI wii-vl (4) 


aJuji jI j_ulu 3 ^L^ii_4 K ^ n (^ildt [0,1] ^_^t j itir, Y i43>lj 

Jj>.) i 4till!I j_y2 jitintl 4 lJI^ Ni -5 = 1/K (J^= tJ 

.TTideal ~ NjK 4JLui ^IL^Jt 4-ut J itilt tl 4tiJl£^t 4 lJI£ ^ ‘ a 4_ul ^ iti C, jtJLct 4 i ii I iii 

^^Ldl^= ')^— 4-uLt^^t ^jJLi 

- ^ideal)^. 

^^ideal 

I 

4jjLul^I 4- u iL»JI iSJL^d rand cJ (_bvl d-^ "^ideal = N/K Ajp-u J dl d-® (1) 

.i 4111111 Xi j^t ilVkju Ni p-uji .N = 1000 J K = 10 pj-2JI .dj**jj^ 

oix^ d-^ 3 ^cJ .v = K — 1 i^j..>dt ljLxj^ JlJLc 2) 

5^-« ~ 11 ^ P = 1000 (^_gl I in 41 iiitl ljIjLu^I d-^ 44LC d^l 4^<- u -'d) 

4JLul^ 4..4_l 2 1 g > 4 d ‘^**• '* 4 JL 41 U L = 1000 (Jl Li Lj|j-^l L-u-a^l 

t l^Lo .‘)^ Li •x^ J 
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♦♦ 


4 *1 ^ » 1 itr ^ Tt JUlJ J di<*, ni a ^i T utj 

Y jLatj .O' = 1 — p JL«IL>.Ij Sj = —a jLutj 5jl<iijtl ^1 j) p JL«IL>.Lj Si = a (_^^Ltuj 5jt^-W 

(OJ tt ijL>.lj . Xn = Sj ^ 11^J »1 iti »TI 5 jt^-W 

1 

P = 9= 2’ ® = 1- 

11II c tl ^lJLA .4_ljI^ diit T) Jil^j9 ^Lc 30 ^_yj|^duiJI »I di cTI 4^=^^ 7,\^^—,\ "w a L)~^ 

lili^ >"(III~i 4^^Lut.»JI 4-cILSL»Jt oJl><-) i^jiJ\ rand jd|>i \^1, <n'l 

^_jJLLII j I - L u3 I 

call srand(seed) 
rand() 

4_LlLill ^ ^ ^dint I » LlLc-I I 4^=^^^ ^ < II *1 > III 1 (jt ' 

if (rand() < p) then 

xtv = xtv Y 

else 

xtv = X]\f — a, 

endif. 


| 4 xiijt .i = 1,100 jl^lj .i A jt->-^tl i^VjL) 4-o) J dir, C»t»l di a O^m Xi ^xbl i i iii-vl (1) 

.4^^hLlt Lj)^! III ^ Tl 

1 t uH*^1 .K — 500 3 g-l <*^1 (2) 

< >= -^ a;S;\ < x% >= ^ 5^(a;i;V. 


^N JlSU i ^j-j|Jnmti ^LaL^l J-4 

^ ^ ^ ^ * t^Lil lll^itl ^1 Jj^3 LjUaxU 


(_^t 1 4 \> t-» < I .4 I ^**1 I 4 ^ ‘ ^ 4.SLlxu ^ jj_)iJLjLJ ^ di f, »1 di 4 ^_i_uU 

4.iLJjVt LJj^^t jt claL^ jj-4 ^ tx ^*1 ^ jx3 jJt »LdL4-li 4iLxdJt ih j) 

l_l_J^ Qy _J Pjy 1 ^ 3 ; iZj ^ Lj (f, J l) _J T j P l) j) Y 1 , j) 

•Pa; Qx Py Qy 0.25 ^ i i T 1 * hlj in ^ i d l ^J.^1 'Px Y Qx Y Py ~\~ Qy 1 

f.\-ut-A L = 500 (J-^l jj-4 N ljIj T) 4jlc > ^ < r^y > ljI f~< m^ILcJI i i m'vl (1) 

.N = 10,..., 1000 iitt j-LjLiLi .^yj) jdir. 
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?r ♦♦ 


jljlj d R I t->s 1 3 j.^3 

Vd= dxi...dxd 

J xl+...+xl<R^ 

= 2 J dxi...dxd-i^J— x\ — ... — 

R^ 27r5 

TfxJ)- 

ji^lj ^^jJt ^t->• 11 4^ ^L^jLLuiL) ^LljI oMj J-4l53Jt i > <n->11 (1) 

(_^jLuiJ isL^o) (J^= ljI^JLC j R = 1 jJa^l ‘ ih = 2R/N 3jt->-^tt Jjla 

.p = 1,15 N = N^ = Ny = 2P 

i^^jD ^ 11-« tt 11-« ' t ^ ^ 11-» tl 2 I ^ tt ^^IL) ^4-<-ujt .1/N (J.^ ‘ ^ j ‘^~ ' lla3iidt (jt (j-i-) (2) 

.N (ftlL) ^ 

Jl^ J ^ ^ I ^-^tl ^^ILui.4JQ LjL >-^ jJt J-O. ^tTmil .fj-iJUu (J^LSLUJt (—il III•»> Ljj^ (3) 

L-Oi-i LLa3iidl (jl l^-Laij .p = 1, 15 tlV = 2^ j R = 1 t—u^ fl = R/N 3 J 

t3L4d ^ ^L>idt aJL^ L^aSidt .'L/N'^ (d^i-4 * ^j 

L^j-L^aJ j-<-3lj X = R JLla (J^LSLUt <LuLiiJI <L33.ui.«JI l4Ja j .>i- L a 

1/N^-^ ^1 1/N^ ^ Ua3JI 

J ^i>~> iii'i laJJLc d Jl3u 3j.5LIt ljI ih-v J^I 


T/ ^d-l /'"*" ^ f j^2 2^^ 

^d = J ^ dxd [R - a; J 2 . 

3B^it oti 4la J u.Hotl Aa^-t TJ dIj ij -11, 10, 9, 8, 7, 6, 5, 4 = d !»t < ni-vl (1) 

(—)l iii-v J^l (j-4 liaaiidt jl i^t-LaVl iL3a jJa 3L^i.u.»JI jJ (J.»ar>.i^) (1) 

(J-^-uil Oili* jJ jL^ j_ylj jJa JL^jtlLtuI J^ .d = 10 J 4, 3, 2 = d ^LaiaVt Ct^LsliLlI) 

.Jlxj ^ ,„2 tt ^ *, 11 <L^ L»ar>.i^I 

^Laa^t LJ^LaLSLlLIt (—)l III •>• (J-a>l (j-4 <L!L>ai- U 4.3_)jJa (J-^-alLLut ( 2 ) 

j-ljuu .4JLi^ Y (J^ i7i 4 LjL»>t^ L$ d (J^= (J-?*' L)^ .d = 10 _j 4,3, 2 = d 

t_2 jj,ia!Li cla J I ti i t-»tt (jl (j_a ^^ ,p = 10,19 Lti_ta» Y = 2^ _j 1,10,100,150 = Ad 

1/y/N 
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l^I aJiA jdl da ^11 t t->^tt (j jl^ ‘.'ida j^tdua 

Ljl-L^iLIt i»jL& (7 ilu^ 7 /^/iV ^ 7m dauji ^ l». U 

■ ^ ji lrl~> a ij ^S3 (jt t— 

TT 4.^_l3 (jiajid jl (1) 


TT = / dx dy. 

Jx'^+y‘^<B? 


4.^_l3 (—)11 II •>!T ^Lla3bt ^t iuLAjda^ ^jl^= (.7^ 3^ <Lbbi.^t iJaajda (J.»jtr>.Lu) 

•TT J 

JiLbit (jdc, ^bib jt 1 i.Hjl (jS-A-i J^lSLlII (2) 


'■+1 


TT 


= 2 / dx Vl — x'^. 


'-1 


•TT (d 4_i-LJ^bj ^-A-jlS i-jI I II •>! t Ct^ 3-4-1 A- b ut- U ^ b ,„ ~A ^ (J-4^ 
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uLuj^ 


LJ 


p/ ^ 1 (^-m)^ 

F{x) = exp • 


v^ 


TTCr^ 


2(t 


jU = 0 jLlLso jLLx^i i-Stj-so^O jijL>iJt A" ti (X ^ jiL^\ jj, '^ ^1 

.(j = 1 j 

^L^-atlLuiLj P{x) 1 wii-v X kjLji j.uLiiJt 4 did III i > iii^i < ‘ i~^l (1) 

!>' t->'« n ^I (jd J-4 ^ ^ ■‘‘‘^ 4-1-4 jjl ^lll^ntl 


a; = r cos ( 


= —2(7^Inn , 0 = 27rtn. 

.[0, 1] ^l^«-4dl 4 4 *< 4 4^1 J iti r, jIjLcI W J V 

i~ii^t-»11 ^LkjL) (j-il IIItl ^t jIIIt) ^ ^ fj ^ ti 4 -ljI^ itintl ^ ..1 1 ^4-Lu^t ^2) 

IIIt) ^1 j III T) ^ I'^ jj ^tl 4-ljI ^ itn T) 4liji£^t ^L^ii-4 ^ ‘^ — n 

.n = 100 ijLi.lj .h = interval/n j J jls 4 JLu u ^^1 —b 

1 ^ t^ kJL^O i .lj^iLloII X ^1 —C 

.4 1<hTI ^liJUtll JL^Ij ‘^J-^ 4JLui 

4-kjl^ null11 jIiJL^^I 4-LUiJ .X ^ 4JLui 4-lj 1 ^ nt h tl ^IJLC^l 4 4 <«*1 —d 

N L^LA^ hN ^ 1^ i^JLuiJl ^ ^ * ^^ILtl4-Lj| ^ nt It tl jIjLcVI ^JLC {^^LulJ 4JLlu 

.A^ = 10000 U-^Lj .4_J-Sljncitl jIlJL^MI (^JL5Ltl ^Jlatll jJt 

J LluftJI a^jl .x^ ki^jLi log(fraction) jo-uijl i^\ ^^JLui ^ I ^ >.i.a ^1 (su4jl (3) 

^ tJ«* t 


•liMct 4dLLu.4-?l J.4-} ^ j; j "kkjjJia (3-^ (1) 

• ^^LLIl^= ljI^ tt i^i III4 d ^ jlajlj^^ i3 (^) 

.Xi = a Xi aPirt'i Y jj-4 Ijl^ _a 
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^^ ^ ^ <^JLulJLujl11 i^Xi^ Xj^ .t-si ^* t< ^3 cJ^ ^ 

Xi + Xj 

Xj —)■ —Xi + V2xj. 


Ojua M 3 j tl ^iiL4 .(j jl(J '-^*» ^-uLiklt 3^ tl ^jSj —C 

.M = 10,100,... 
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jij jji £j>*j j 

^L^ot utiT) ^ja ^JLC P AjLJjua ASLum ^j-juum N juujU 

~ —^ -3^ (i^3"^ LhH^) ~ oj irtt ^£Jl>-\ jL>L> (jl <l 1SL«^ (d^= .Y = jj) 

^ / ..jt->l *« a J ^-v. 11>» »i ^ Ljj^Vl 4jLjj^t 4jtj_tjx 

^llaJI iUIJL) ' ij^JlSU .iP 

i? = —J SjSj — H Sj. 

<ii> * 

.0(i, j) 4^ j A tt ^ ■^* » > J-*-^ j ^J i da^iiJt ^laLdJ ^ J Jjx (jj Kill) 

LJ jj| ^_ylajt3 (jl 

E= - ^^(j){i,j)((j){i + l,j) + (j){i-l,j) + (j){i,j+ l) + (j){i,j-1)] 

i,j=i ^ ' 

- hY^^{i,3). 

i=\ 

0(0,i) = 0(n,j) , 0(n + l,j) = 0(1, j) , 0(i,O) = 0(i,n) , 0(i,n + 1) = 0(i, 1). 

CjLxJLfllUl .T 5 jl <L>.j4 jj 5jl 01j'0 jl4dL^ j_yS 4JL«^OI 01 ' ‘“^jl 

.(_»n >t4 -l^ jjt^^^3L>0 <LL«j>iJL! ^.>01 
^laJuL^I .^JL) j_)l ^.^JLI (f) ^- LO -^ T Ot Af ^ tJ» *, ■» .^ 11 ^ E t w n •>! i <JrJO tHJJ (1) 

^jjua ^ 4JL4.>0t t-t-LJjO I ,‘._j 

M = ^Si= 0(i,i). 

i ij=l 

■i^L»j>OI '^ t II > T4 -i_ 4 j jI'* ‘ '"^-■1 (^2) 

0(0 j) OtH-^I 0^ 

AE = 2J00, j)(00 + 1, j) + 0(i - 1, j) + 00, j + 1) + 0(i, j - 1)) + 2i7^00, j). 

i=l 

iilLs* ^ SjjLlII 2S\H-«~iVQtl-v. ^JLatj ./3 = 1/P ^ t/ = 1 li? = 0 iP = 10 jLi3o (3) 

Ol^j.A^I ^JL^kLuOt 

0(0 i) = +1 V i, j : Cold Start. 

0(0 i) = randO ; Hot Start. 

^ iiaLlaJI jG j4l ^ TTH = 2® 4j jl ^ja 0-® j 0-?’l 0^ t>“-0 jJLl^ 4_i_« j jIQJi-ui 

^ P = 0 p ' ^ Ql ' j~ 4laJL3L^t ^ i^LLaJI CiLvj.^ 0-?’l 0~^ ^AaJuL^t 

.T —^0U1M = +1 ^ E = -2JN (,k^l j>4 jT —> oo Ui M = 0 
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2 t->*, i tt j ‘"<1 ^ ••• j!ju» 1 mi-vl J 6 TTM = 2^0 LiL^ (4) 

l_) (jLS 4JL4.>idl ^ ‘ “• I t-»l • » tl ^ uum \ III ■>! tt ^ 1t <11 Tt < > <« 'vl (5) 

C, = ^<E>=^{<E^>-<E>^) , X=-^<M>=/3{<M^>-<M > 2 ). 

^^ ‘.■y11 ^ 1 ^lx‘ 11 4^«_4lLUL> ^ 2^* 11 < (<«->»| (6) 

, ^ 2J 

ksTc —- -]=■ -• 

ln(v^+l) 

^ I, „ . t-»l *, ■» .^ tl <L>-<^1 < II •>! tl ^ 4 ■» < <1 Tl ' ^ t-»' » .■) 11 <]iL§lIaJt /• 11-» Vl < ((<1 ■».) i~<l ...1 I ^ tl ^j_4 
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iG! = 0 i_) ^■» ' iiL]jI^^.>111 4 ^ IIItLi 

^~(T,-T)-“, a = 0. 

4-^^J jljI^^ ^ ^d^' Ijl^^ T = T, jlIc Li..«IL)jL£jJ jlcLiILj <Ait<iitl (jt 

i^\ Ll^IojLc jJ L 

I peak ~ lo§ L . 

•TMC = 2^^ iTTH = 2^^ ^ L = 10 — 30 (j-*-) ljLSLu^ (*j3»ILu/I . Lijjlc I^^ 

5jlj.^iJI ljLxjj 

T = Tc— 10“^step , step = —50,50. 

•In P 2J^jLi C^jL?' ^ ^ I Vt ^ ■ ^ti 


^LUl^ 






< M > 

L2 


~(Te-T)-^ 


/S 


1 

8‘ 




|4..Uljt L^lJL^I tillft (3 ' ^ ^j_4 .L).^JLC (3 2..AJLZ ^j-l-UkJ (J->l (j-4 Tq ^ t-» *, » ..y 11 <Lu<tj.i ^ J^ 

ilii.J_) T T(. — T I < M > I 

T = Tc— 10“^step , step = 0,5000. 

5jl^->iJI (jt jj .TTH = TMC = 2^0 2^ L = 30 - 50 ^3_LJ 0 CjISLciSi juUJLJ 

, ^ 2j 

ksTc —- 1= -. 

ln(v^+l) 


3-4-j <L:x j..>iJt 2 jt As^ jt A i ,„ ! t->l • » /.y tl Ajum\ <ii >1 T) 



A 

L2 


IT-Tcl"^ 


7 


7 

4‘ 


4JXJ.5 jj* _3 ^ — 50 iTMC — 2^^ tTTH — 2^^ juum \ . L).^ jLc 'y 


T = Tc — 5.10 "^step , step = 0,100. 


T = Tc — 0.05 — 4.5.10 ^step , step = 0,100. 
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fc *<«'>! *1 ^ ^ ^ ^ ^ t^tl ^ 4-4iUl^^ ^1 <M ^tl 

2 jLul1L) 4-ljL1U1 J^jJI ^\ <n ^Ti ^Jl^ 


fin) 


< SoSn > 

< ■^'^<P{hj)(<Pi'i + n,j) + (j){i-n,j) + (j){i,j+ n) + (j){i,j -n)j > . 

i,j ^ '' 


Lj ^t-itj T = Tc uJtc fin) SJIljlII jl (1) 


fin) ~ 


1 

n^ ’ 


V = 


1 

4‘ 


Lj ^t-T»j Tc jj-4 J^l T J^l /(n) AJIaJI jl (2) 

f{n) =< M >2 . 


Lj ^t^nj Tc (j_a T J^l fin) SdlaJI jl (3) 


I ■>> 'I 


/■(n) ~ a —e «. 

.LL = 20 — SO ~ ‘2£j£j T 1 ljLSLc<2i jl3^Lj ^^ 

.TTC = 2^3 ,tTH = 2^0 

^LUl^a jJt ^JLcL^Io Tc LJ j^L) (4) 




|T-Tc|^ ’ 


z/ = 1. 


CjLxjj ^ TTC — 2^^ (TTH — 2^^ p ■ Ljajt j-ULa^ .LL — 20 jLi»lj jinT) Illa ^_y2 

T = Tc + 0.1. step , step = 0,10. 

A^ A ,»11 < ^ jt-»« < ^t n ^1 III a 4 JlC (j jJlJL^ i (jtj-ijx ^t 


do i=l,L 
do n=l,LL 
if (i+n.le.L)then 
ipn(i,n)=i+n 
else 

ipn(i,n)=(i+n)-L 

endif 
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if ((i-n) .ge. Dthen 
imn(i,n)=i-n 
else 


imn(i,n)=i-n+L 

endif 

enddo 

enddo 
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. tJ> M ~< j_uj .^JL>J_)t ^L) J-lS ^ /,. I t->l ‘ « a ^J ^ j_ljG j-ljlsu ^1 III ^tt liillft 

^ H = 0 (j^ ljj-2JLi (j2 4jJjJ) ij^ jj.a3^4L) 


^jja 1^ ^ ^ 3jtj^ l)-^^ iy^ H ^^iJL) i^LIaJI ^ ^ t-» ‘ 11 I 11II ■>! ~i (1) 

(J ^j-i-utlu Ijuj ^ t-» ,„^ t-»* ■« <^tt i_ii III-y. jlslj ^ ^ /,. I t-»l •»tl J ^11 ^ n ' ^ 

^ III -^*1 ^ (.7-^ 5 j-ut-Lia OI j ^ < (J^ i7i 1 (_^t ^^iLuLiLi^t (J^ i7i i ^ ... ■ t-»l *. ■» .^ tt 

.0.25 1^ jLuij ljI j4a^ H = —5, 5 Jl JjjJI Ij-pjij .^L»j>iJt iij jl ^ 

i^jJ) j-dilLII ^j-« {T = 1.5 j T = 0.5 T < Tc J-^I (j-o Cy^ - 

lili^ ^t^*»nj i^LIaJt jJi23 tt^ jt j-^TluiI ^ ^ 

.fj<i I III ^^"i iiigtl I I 11 iM ^ "• ‘ * ■« <^ tt ^J ^ 11 4^Jul1a TLa-lS JlI^ OJ.>bJ ;_^jjiiaJt j_iJLlL}t 

AalJLjiIa 3^ L^J^ 3^ JuL^ 1 ^tJ»M 

. 4 JL 4 LSLO 3jlj..>iJt 

5^ c~i III A 41 id III iUB = 5 ^ T = 3 P ^ Tc ^ t-* * 1 »11 ^1 — 

JLxjj ^ <Ljt (,7^i-it^ tiJL^ ^ H = 0 ljj.^Lj ^ljIj.^) ij^ ^ j 

.M < 0 iLuui^LLLajj.^1 j M > 0 C,!sfL>JI ^J\ 

ij\ t—.LiLil j Ll^ii 5 —5 ij^ J^l (j-4 H ^t->*»n ^i ljI m-v ^JuytA (2) 

^ .. I y .. 1 ^ ! , .i M 4.^JL^ 

.iiji^ JbLj ^t 5.iLj^.j ^3 ‘ ‘•^ * III III <^~i iiigtt Bili^lj (jl jj_4 ^3 ^— 

^ LJI jt-l-^ ^ 

.aK I ilitl ^Q.7iw>. 3.^L)3 lJlIc ojl>i_) I^La — 

(jl ^1 1 g 3 1 g5Tl^o ,3- ' -*-*-* ‘ ly^ t 31 II11111^5 1 »^ tt ^ 1 iti < 

A J y„ a 4.^ LJ^l^ 4^1^ 4J.4^i|4l 



